21 lines
372 B
Scheme
21 lines
372 B
Scheme
|
;; -*- 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>))
|
||
|
|
||
|
|
||
|
))
|