(define-interface scratch-interface
(export
char-continue))
(define-structure thttpd
scratch-interface
(open scheme)
(files load scratch))