Retropikzel
/
compile-scheme
1
0
Fork 0
Code Issues

Add support for capyscheme

This commit is contained in:
retropikzel 2025-12-04 10:23:34 +02:00
parent 59240f04b0
commit 8ecaaa8d5a
3 changed files with 688 additions and 660 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compile-scheme.scm
View File

@ -1,12 +1,12 @@
(import (scheme base)
(scheme file)
(scheme read)
(scheme write)
(scheme process-context)
(libs util)
(libs data)
(libs library-util)
(srfi 170))
(scheme file)
(scheme read)
(scheme write)
(scheme process-context)
(libs util)
(libs data)
(libs library-util)
(srfi 170))
(define debug? (if (member "--debug" (command-line)) #t #f))

1317
libs/data.sld
View File

File diff suppressed because it is too large Load Diff

15
libs/util.sld
View File

@ -56,18 +56,20 @@
(define (echo text) (display text) (newline))
(define (cat path) (for-each (lambda (line) (echo line)) (file->list path)))
(define r6rs-schemes '(chezscheme
(define r6rs-schemes '(capyscheme
chezscheme
guile
ikarus
ironscheme
larceny
;larceny
loko
mosh
racket
sagittarius
ypsilon))
(define r7rs-schemes '(chibi
(define r7rs-schemes '(capyscheme
chibi
chicken
cyclone
;gambit
@ -75,7 +77,7 @@
gauche
guile
kawa
larceny
;larceny
loko
meevax
mit-scheme
@ -86,7 +88,8 @@
stklos
tr7
ypsilon))
(define all-schemes '(chezscheme
(define all-schemes '(capyscheme
chezscheme
chibi
chicken
cyclone
@ -97,7 +100,7 @@
ikarus
ironscheme
kawa
larceny
;larceny
loko
meevax
mit-scheme