conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* added with-output-to-file to the scheme-env

This commit is contained in:
Abdulaziz Ghuloum 2007-05-01 16:49:07 -04:00
parent b2b8ba6994
commit e1bfd0f31f
3 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

1
src/libsyntax.ss
View File

@ -902,6 +902,7 @@
[output-port-name output-port-name-label (core-prim . output-port-name)]
[open-input-file open-input-file-label (core-prim . open-input-file)]
[with-input-from-file with-input-from-file-label (core-prim . with-input-from-file)]
[with-output-to-file with-output-to-file-label (core-prim . with-output-to-file)]
[open-output-file open-output-file-label (core-prim . open-output-file)]
[open-output-string open-output-string-label (core-prim . open-output-string)]
[get-output-string get-output-string-label (core-prim . get-output-string)]

6
src/makefile.ss
View File

@ -252,7 +252,11 @@
(apply append (map (lambda (x) (expand-library (car x))) ls)))
(printf "expanding ...\n")
(let ([core* (expand-all scheme-library-files)])
(printf "compiling ...\n")
; (with-output-to-file "ikarus.pp"
; (lambda ()
; (for-each pretty-print core*))
; 'replace)
(printf "compiling ...\n")
(let ([p (open-output-file "ikarus.boot" 'replace)])
(for-each
(lambda (x) (compile-core-expr-to-port x p))