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) (import (scheme base)
(scheme file) (scheme file)
(scheme read) (scheme read)
(scheme write) (scheme write)
(scheme process-context) (scheme process-context)
(libs util) (libs util)
(libs data) (libs data)
(libs library-util) (libs library-util)
(srfi 170)) (srfi 170))
(define debug? (if (member "--debug" (command-line)) #t #f)) (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 (echo text) (display text) (newline))
(define (cat path) (for-each (lambda (line) (echo line)) (file->list path))) (define (cat path) (for-each (lambda (line) (echo line)) (file->list path)))
(define r6rs-schemes '(chezscheme (define r6rs-schemes '(capyscheme
chezscheme
guile guile
ikarus ikarus
ironscheme ironscheme
larceny ;larceny
loko loko
mosh mosh
racket racket
sagittarius sagittarius
ypsilon)) ypsilon))
(define r7rs-schemes '(chibi (define r7rs-schemes '(capyscheme
chibi
chicken chicken
cyclone cyclone
;gambit ;gambit
@ -75,7 +77,7 @@
gauche gauche
guile guile
kawa kawa
larceny ;larceny
loko loko
meevax meevax
mit-scheme mit-scheme
@ -86,7 +88,8 @@
stklos stklos
tr7 tr7
ypsilon)) ypsilon))
(define all-schemes '(chezscheme (define all-schemes '(capyscheme
chezscheme
chibi chibi
chicken chicken
cyclone cyclone
@ -97,7 +100,7 @@
ikarus ikarus
ironscheme ironscheme
kawa kawa
larceny ;larceny
loko loko
meevax meevax
mit-scheme mit-scheme