From adbcba3355693a3d06474bb2647ba83eed3bf539 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 16 Apr 1992 01:38:50 +0000 Subject: [PATCH] Fix quoting problem in plus-fixnum. --- v7/src/compiler/machines/i386/rulfix.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/i386/rulfix.scm b/v7/src/compiler/machines/i386/rulfix.scm index f83c996b3..8b62fcd36 100644 --- a/v7/src/compiler/machines/i386/rulfix.scm +++ b/v7/src/compiler/machines/i386/rulfix.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rulfix.scm,v 1.23 1992/04/14 20:30:35 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rulfix.scm,v 1.24 1992/04/16 01:38:50 jinx Exp $ $MC68020-Header: /scheme/src/compiler/machines/bobcat/RCS/rules1.scm,v 4.36 1991/10/25 06:49:58 cph Exp $ Copyright (c) 1992 Massachusetts Institute of Technology @@ -434,7 +434,7 @@ MIT in each case. |# (operate (get-tgt) (register-reference one)))) (else (let ((target (target-register-reference target))) - (LAP (LEA ,target (@RI one two 1))))))))))) + (LAP (LEA ,target (@RI ,one ,two 1))))))))))) (define-arithmetic-method 'FIXNUM-ANDC fixnum-methods/2-args (fixnum-2-args/standard -- 2.25.1