@@ -26,11 +26,28 @@ regex regex-case srfi-69 ;; hostinfo md5 message-digest ;;posix-extras - spiffy uri-common intarweb http-client spiffy-request-vars intarweb spiffy-directory-listing) + spiffy uri-common intarweb http-client spiffy-request-vars intarweb spiffy-directory-listing + +chicken.condition +chicken.file +chicken.pathname +chicken.port +chicken.pretty-print +chicken.process +chicken.process-context +chicken.process-context.posix +chicken.string +chicken.time +chicken.time.posix +system-information +srfi-13 +chicken.io + + ) ;; Configurations for server (tcp-buffer-size 2048) (max-connections 2048) @@ -52,10 +69,14 @@ (include "js-path.scm") (import dbfile commonmod) (require-library stml) + +(define setenv set-environment-variable!) +(define getenv get-environment-variable) + (define (http-transport:make-server-url hostport) (if (not hostport) #f (conc "http://" (car hostport) ":" (cadr hostport))))