Retropikzel
/
compile-r7rs
1
0
Fork 0
Code Issues

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" `("printf"
" " " "
"'#lang r7rs\\n" "'#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 \"" "(include \""
,(path->filename library-file) ,(path->filename library-file)
"\")\\n" "\")\\n"
@ -446,7 +446,7 @@
(lambda () (lambda ()
(display "#lang r7rs") (display "#lang r7rs")
(newline) (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) (newline)
(display "(include \"") (display "(include \"")
(display (path->filename input-file)) (display (path->filename input-file))