* Assembler-output suppresses printing the closure-size; it prints
a newline instead.
This commit is contained in:
parent
b06b28f562
commit
e69f0a5c80
|
@ -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.
|
||||
|
||||
|
|
|
@ -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 ()
|
||||
|
|
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue