Skip to content

Instantly share code, notes, and snippets.

@alvatar

alvatar/gist:d3faf37d101ae1f5041a

Created March 21, 2015 19:38
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save alvatar/d3faf37d101ae1f5041a to your computer and use it in GitHub Desktop.
Save alvatar/d3faf37d101ae1f5041a to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.scm
(sack-start!
(lambda (env)
(let ((ret #t))
(values 200
'(("Content-Type" . "text/plain"))
(lambda ()
(and
ret
(begin
(set! ret #f)
(with-output-to-u8vector
(list char-encoding: 'UTF-8)
(lambda ()
(write (env 'sack:uri)) (print "Hello, world!")))))))))
port-number: 3333)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment