18 lines
443 B
Scheme
18 lines
443 B
Scheme
;; -*- geiser-scheme: chicken -*-
|
|
|
|
(import (r7rs))
|
|
(import (scheme base))
|
|
(import (srfi 180))
|
|
(import (chicken process))
|
|
(import http-client)
|
|
|
|
(define (firefox)
|
|
(let-values (((stdout stdin pid stderr) (process* "geckodriver"))
|
|
(host "127.0.0.1")
|
|
(port "4444")
|
|
)
|
|
(lambda (msg #!optional args)
|
|
(case msg
|
|
((test) (print "Test"))
|
|
((test-with-args) (print "Args:" args))))))
|