#!/home/clinton/local/bin/guile -s
!#
(use-modules (web hash-dash))
(display "Content-Type: text/html;\r\n\r\n")
(force-output (current-output-port))
;(cgi:init)
;;; this is the best way to do this so that the #- -# is only
;;; evaluated once, saving time (the #- -# reader macro is probably
;;; slow and can generate a lot of garbage).
(define (header title)
(for-each (lambda (x) (display x))
(list
#-
-#
title
#- -#
title
#-
This page is generated using a
guile-web block!
-#)))
(header "FOOBAR")
(force-output (current-output-port))
(use-syntax (ice-9 syncase))
(use-modules (web html))
(display "Other stuff.
")