* Assembler-output suppresses printing the closure-size; it prints

a newline instead.
This commit is contained in:
Abdulaziz Ghuloum 2006-12-23 05:17:57 +03:00
parent b06b28f562
commit e69f0a5c80
4 changed files with 8 additions and 4 deletions

View File

@ -20,3 +20,7 @@ Copyright (c) 2006 Abdulaziz Ghuloum
As of r127:
3.79 real 3.15 user 0.63 sys
With engines (r139):
3.94 real 3.23 user 0.69 sys
Note: this is about 2% overhead.

View File

@ -414,7 +414,8 @@
(if (= count2 1)
(begin
(let ([row (+ (car (sub-grid-list sub)) (quotient loc 3))]
[col (+ (caddr (sub-grid-list sub)) (modulo loc 3))])
[col (+ (caddr (sub-grid-list sub))
(remainder loc 3))])
(grid-set! row col (+ i 1))
(row-init row)
(col-init col)
@ -603,8 +604,6 @@
(print-sudoku)
(error 'sudoku "MIS-ENTERED INITIALIZATION"))))
(define quotient fxquotient)
(define modulo fxmodulo)
(define do-file
(lambda ()
(let f ()

Binary file not shown.

View File

@ -4874,7 +4874,8 @@
[print-gensym #f])
(for-each
(lambda (ls)
(for-each (lambda (x) (printf " ~s\n" x)) ls))
(newline)
(for-each (lambda (x) (printf " ~s\n" x)) (cdr ls)))
ls*)))
(let ([code* (list*->code*
(lambda (x)