20 lines
413 B
Scheme
Executable file
20 lines
413 B
Scheme
Executable file
#!/bin/sh
|
|
#| -*- scheme -*-
|
|
exec csi -s "$0" "$@"
|
|
|#
|
|
(define-library (rain)
|
|
(import
|
|
(scheme base)
|
|
(scheme file)
|
|
(chicken base)
|
|
(chicken io)
|
|
(chicken port)
|
|
(chicken process-context)
|
|
(format)
|
|
(html-parser)
|
|
(openssl) ; has to be before http-client
|
|
(http-client)
|
|
(matchable)
|
|
(srfi-18))
|
|
(include "rain.scm")
|
|
(begin (main (command-line-arguments))))
|