From 1fc31cddf8cbdd640075b4c5adf3a717207fe370 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 19 Feb 1992 23:56:32 +0000 Subject: [PATCH] Add missing comma in CONS-MULTICLOSURE rule. --- v7/src/compiler/machines/i386/rules3.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/i386/rules3.scm b/v7/src/compiler/machines/i386/rules3.scm index 3ac20baaa..49057e3f0 100644 --- a/v7/src/compiler/machines/i386/rules3.scm +++ b/v7/src/compiler/machines/i386/rules3.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rules3.scm,v 1.19 1992/02/18 14:05:02 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rules3.scm,v 1.20 1992/02/19 23:56:32 jinx Exp $ $MC68020-Header: /scheme/compiler/bobcat/RCS/rules3.scm,v 4.31 1991/05/28 19:14:55 jinx Exp $ Copyright (c) 1992 Massachusetts Institute of Technology @@ -544,7 +544,7 @@ MIT in each case. |# (MOV W (@R ,regnum:free-pointer) (&U ,(make-non-pointer-literal (ucode-type manifest-vector) size))) - (ADD W (R ,regnum:free-pointer) (& (* 4 (1+ size))))))) + (ADD W (R ,regnum:free-pointer) (& ,(* 4 (1+ size))))))) ((1) (let ((entry (vector-ref entries 0))) (generate/cons-closure target -- 2.25.1