From f216ed589331f1c459b89bda4f0e4aebddac1012 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Fri, 21 Nov 2008 05:19:01 -0500 Subject: [PATCH] - fixed a few typos, disabled debugging in assembler-output, fixed condition printing --- scheme/ikarus.conditions.ss | 4 ++-- scheme/ikarus.intel-assembler.ss | 3 +-- scheme/last-revision | 2 +- scheme/psyntax.library-manager.ss | 2 +- 4 files changed, 5 insertions(+), 6 deletions(-) diff --git a/scheme/ikarus.conditions.ss b/scheme/ikarus.conditions.ss index a2c5c71..bab6989 100644 --- a/scheme/ikarus.conditions.ss +++ b/scheme/ikarus.conditions.ss @@ -367,9 +367,9 @@ (display (vector-ref v i) p) (display ": " p) (write ((record-accessor rtd i) x) p) - (newline) + (newline p) (f (+ i 1) rtd v)))) - rf)]))) + rf)]))) (define (print-condition x p) (cond [(condition? x) diff --git a/scheme/ikarus.intel-assembler.ss b/scheme/ikarus.intel-assembler.ss index 321b9f7..c44fa44 100644 --- a/scheme/ikarus.intel-assembler.ss +++ b/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))] diff --git a/scheme/last-revision b/scheme/last-revision index cc3f6fb..6aec59a 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1686 +1687 diff --git a/scheme/psyntax.library-manager.ss b/scheme/psyntax.library-manager.ss index c5ecda7..62a47d3 100644 --- a/scheme/psyntax.library-manager.ss +++ b/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)