4 elpa_scheme
=$topdir/scheme
5 in_scheme
=$topdir/..
/scheme
6 top
=$
(if [ -d $elpa_scheme ]; then echo $elpa_scheme; else echo $in_scheme; fi)
7 exec racket
-i -S "$top/racket" -l errortrace
-cu "$0" ${1+"$@"}
12 (require
(lib
"cmdline.rkt"))
13 (require geiser
/server
)
15 (define port
(make-parameter
0))
16 (define
host (make-parameter
#f (lambda (h) (and (string? h) h))))
19 "run-racket.sh" (current-command-line-arguments
)
21 (("-n" "--hostname") n
"Network hostname, or #f for all interfaces" (host n
))
22 (("-p" "--port") p
"Geiser server port" (port
(string-
>number p
)))))
24 (printf "Geiser server running at port ~a~%" (start-geiser
(port
) (host)))