- fixed a few typos, disabled debugging in assembler-output, fixed

condition printing

scheme/ikarus.conditions.ss

@@ -367,7 +367,7 @@
                      (display (vector-ref v i) p)
                      (display ": " p)
                      (write ((record-accessor rtd i) x) p)
-                     (newline)
+                     (newline p)
                      (f (+ i 1) rtd v))))
                rf)])))
       (define (print-condition x p)

scheme/ikarus.intel-assembler.ss

@@ -672,7 +672,6 @@
       [(and (mem? src) (reg? dst))      (CR* #x8D dst src ac)]
       [else (die who "invalid" instr)])]
    [(cmpl src dst)
-    (trace-ac ac `(cmpl ,src ,dst)
     (cond
       [(and (imm8? src) (reg? dst))       (CR*  #x83 '/7 dst (IMM8 src ac))]
       [(and (imm32? src) (eq? dst '%eax)) (C #x3D (IMM32 src ac))]
@@ -681,7 +680,7 @@
       [(and (mem? src) (reg? dst))        (CR*  #x3B dst src ac)]
       [(and (imm8? src) (mem? dst))       (CR*  #x83 '/7 dst (IMM8 src ac))]
       [(and (imm32? src) (mem? dst))      (CR*  #x81 '/7 dst (IMM32 src ac))]
-      [else (die who "invalid" instr)]))]
+      [else (die who "invalid" instr)])]
    [(imull src dst)
     (cond
       [(and (imm8? src) (reg? dst))     (CR*  #x6B dst dst (IMM8 src ac))]

scheme/last-revision

@@ -1 +1 @@
-1686
+1687

scheme/psyntax.library-manager.ss

@@ -213,7 +213,7 @@
         (let ((file-name ((file-locator) x)))
           (cond
             ((not file-name) 
-             (assertion-violation #f "cannot file library" x))
+             (assertion-violation #f "cannot find library" x))
             ((try-load-from-file file-name))
             (else 
              ((current-library-expander)