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

* Print-gensym is now set to off during assembler-output.

This commit is contained in:
Abdulaziz Ghuloum 2006-12-21 18:11:43 +03:00
parent a41457ae66
commit b06b28f562
2 changed files with 2 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.

3
src/libcompile.ss
View File

@ -4870,7 +4870,8 @@
[p (optimize-ap-check p)]) [p (optimize-ap-check p)])
(let ([ls* (generate-code p)]) (let ([ls* (generate-code p)])
(when (assembler-output) (when (assembler-output)
(parameterize ([gensym-prefix "L"]) (parameterize ([gensym-prefix "L"]
[print-gensym #f])
(for-each (for-each
(lambda (ls) (lambda (ls)
(for-each (lambda (x) (printf " ~s\n" x)) ls)) (for-each (lambda (x) (printf " ~s\n" x)) ls))