In the beginning there was darkness

chicken-on-a-raft.egg

@@ -0,0 +1,13 @@
+;; -*- mode: scheme -*-
+((author "Daniel Ziltener")
+ (synopsis "Cleanroom WebDriver implementation")
+ (category testing)
+ (license "BSD")
+ (dependencies utf8 r7rs coops)
+ (test-dependencies srfi-78)
+ (components
+   (extension chicken-on-a-raft
+     (csc-options
+       "-X" "r7rs"
+       "-R" "r7rs"
+       "-sJ"))))

chicken-on-a-raft.scm

@@ -0,0 +1,20 @@
+;; -*- geiser-scheme: chicken -*-
+(import (r7rs))
+
+(define-library (chicken-on-a-raft)
+  (import (scheme base)
+		  coops
+		  coops-primitive-objects
+		  http-client)
+  (export #f)
+  (begin
+	(define-class <Driver> ()
+	  ((proc accessor: driver-proc))
+	  ((url accessor: driver-url)))
+
+	(define-method (initialize-instance ()))
+
+	(define-class <Firefox> (<Driver>))
+
+
+	  ))