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

2006-12-21 18:11:43 +03:00 · 2006-12-21 18:11:43 +03:00 · b06b28f562
parent a41457ae66
commit b06b28f562
2 changed files with 2 additions and 1 deletions
--- a/src/ikarus.boot
+++ b/src/ikarus.boot
--- a/src/libcompile.ss
+++ b/src/libcompile.ss
@ -4870,7 +4870,8 @@
         [p (optimize-ap-check p)])
    (let ([ls* (generate-code p)])
      (when (assembler-output)
-        (parameterize ([gensym-prefix "L"])
+        (parameterize ([gensym-prefix "L"]
+                       [print-gensym #f])
          (for-each 
            (lambda (ls)
              (for-each (lambda (x) (printf "    ~s\n" x)) ls))