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)
|
(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)
|
(define (find-comic-image index)
|
||||||
(call-with-current-continuation
|
(call-with-current-continuation
|
||||||
(lambda (k)
|
(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