Switch to a R7RS layout with csm

This commit is contained in:
cælōrum spectātrīx 2025-11-21 22:13:54 +01:00
parent e632996711
commit 81a50c48c2
3 changed files with 23 additions and 14 deletions

3
all.options Normal file
View file

@ -0,0 +1,3 @@
;; csm options file -*- lisp-data -*-
"-program" "rain"
"-optimize-level" "3"

14
rain.scm Executable file → Normal file
View 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
View 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))))