3 top
="$(dirname $0)/../scheme"
4 exec racket
-i -S "$top/racket" -l errortrace
-cu "$0" ${1+"$@"}
9 (require
(lib
"cmdline.rkt"))
11 (define port
(make-parameter
0))
14 "run-racket.sh" (current-command-line-arguments
)
16 (("-p" "--port") p
"Geiser server port" (port
(string-
>number p
)))))
18 (printf "Geiser server running at port ~a~%"
19 ((dynamic-require
'geiser/server 'start-geiser
) (port
)))