Switch to a R7RS layout with csm
This commit is contained in:
parent
e632996711
commit
81a50c48c2
3 changed files with 23 additions and 14 deletions
3
all.options
Normal file
3
all.options
Normal file
|
|
@ -0,0 +1,3 @@
|
|||
;; csm options file -*- lisp-data -*-
|
||||
"-program" "rain"
|
||||
"-optimize-level" "3"
|
||||
14
rain.scm
Executable file → Normal file
14
rain.scm
Executable file → Normal file
|
|
@ -1,19 +1,5 @@
|
|||
#!/bin/sh
|
||||
#| -*- scheme -*-
|
||||
exec csi -ss "$0" "$@"
|
||||
|#
|
||||
|
||||
(define parallel 1)
|
||||
|
||||
(import (chicken io)
|
||||
(chicken format)
|
||||
(chicken port)
|
||||
(chicken process-context)
|
||||
(html-parser)
|
||||
(http-client)
|
||||
(matchable)
|
||||
(srfi-18))
|
||||
|
||||
(define (find-comic-image index)
|
||||
(call-with-current-continuation
|
||||
(lambda (k)
|
||||
|
|
|
|||
20
rain.sld
Executable file
20
rain.sld
Executable file
|
|
@ -0,0 +1,20 @@
|
|||
#!/bin/sh
|
||||
#| -*- scheme -*-
|
||||
exec csi -s "$0" "$@"
|
||||
|#
|
||||
(define-library (rain)
|
||||
(import
|
||||
(scheme base)
|
||||
(scheme file)
|
||||
(chicken base)
|
||||
(chicken io)
|
||||
(chicken format)
|
||||
(chicken port)
|
||||
(chicken process-context)
|
||||
(html-parser)
|
||||
(openssl) ; has to be before http-client
|
||||
(http-client)
|
||||
(matchable)
|
||||
(srfi-18))
|
||||
(include "rain.scm")
|
||||
(begin (main (command-line-arguments))))
|
||||
Loading…
Add table
Add a link
Reference in a new issue