* added with-output-to-file to the scheme-env
This commit is contained in:
parent
b2b8ba6994
commit
e1bfd0f31f
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
|
@ -902,6 +902,7 @@
|
||||||
[output-port-name output-port-name-label (core-prim . output-port-name)]
|
[output-port-name output-port-name-label (core-prim . output-port-name)]
|
||||||
[open-input-file open-input-file-label (core-prim . open-input-file)]
|
[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-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-file open-output-file-label (core-prim . open-output-file)]
|
||||||
[open-output-string open-output-string-label (core-prim . open-output-string)]
|
[open-output-string open-output-string-label (core-prim . open-output-string)]
|
||||||
[get-output-string get-output-string-label (core-prim . get-output-string)]
|
[get-output-string get-output-string-label (core-prim . get-output-string)]
|
||||||
|
|
|
@ -252,6 +252,10 @@
|
||||||
(apply append (map (lambda (x) (expand-library (car x))) ls)))
|
(apply append (map (lambda (x) (expand-library (car x))) ls)))
|
||||||
(printf "expanding ...\n")
|
(printf "expanding ...\n")
|
||||||
(let ([core* (expand-all scheme-library-files)])
|
(let ([core* (expand-all scheme-library-files)])
|
||||||
|
; (with-output-to-file "ikarus.pp"
|
||||||
|
; (lambda ()
|
||||||
|
; (for-each pretty-print core*))
|
||||||
|
; 'replace)
|
||||||
(printf "compiling ...\n")
|
(printf "compiling ...\n")
|
||||||
(let ([p (open-output-file "ikarus.boot" 'replace)])
|
(let ([p (open-output-file "ikarus.boot" 'replace)])
|
||||||
(for-each
|
(for-each
|
||||||
|
|
Loading…
Reference in New Issue