Retropikzel
/
compile-r7rs
1
0
Fork 0
Code Issues 8 Pull Requests Releases Activity

Racket fixes

This commit is contained in:
retropikzel 2025-08-27 18:17:40 +03:00
parent 39df72eeaa
commit 4e818b2739
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
libs/data.sld
View File

@ -424,7 +424,7 @@
`("printf"
" "
"'#lang r7rs\\n"
"(import (except (scheme base) let string-copy string-copy! string-for-each string-map string-fill! string->list))\\n"
"(import (except (scheme base) let let-values let*-values string-copy string-copy! string-for-each string-map string-fill! string->list))\\n"
"(include \""
,(path->filename library-file)
"\")\\n"
@ -446,7 +446,7 @@
(lambda ()
(display "#lang r7rs")
(newline)
(display "(import (except (scheme base) let string-copy string-copy! string-for-each string-map string-fill! string->list))")
(display "(import (except (scheme base) let let-values let*-values string-copy string-copy! string-for-each string-map string-fill! string->list))")
(newline)
(display "(include \"")
(display (path->filename input-file))