From 3f79d91e248a77cdd1dd3d39b51414ad0f930ff5 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 13 Feb 1992 05:42:40 +0000 Subject: [PATCH] More changes. --- v7/src/compiler/machines/i386/insmac.scm | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/v7/src/compiler/machines/i386/insmac.scm b/v7/src/compiler/machines/i386/insmac.scm index 4b589b0e5..cff59e519 100644 --- a/v7/src/compiler/machines/i386/insmac.scm +++ b/v7/src/compiler/machines/i386/insmac.scm @@ -1,6 +1,6 @@ -#| -*-Scheme-*- +>#| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/insmac.scm,v 1.4 1992/02/13 05:30:32 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/insmac.scm,v 1.5 1992/02/13 05:42:40 jinx Exp $ $Vax-Header: insmac.scm,v 1.12 89/05/17 20:29:15 GMT jinx Exp $ Copyright (c) 1992 Massachusetts Institute of Technology @@ -58,7 +58,12 @@ MIT in each case. |# ',categories ,(integer-syntaxer mode 'UNSIGNED 2) ,(integer-syntaxer register 'UNSIGNED 3) - ,(process-fields tail false)))))))) + ,(process-tail tail false)))))))) + +(define (process-tail tail early?) + (if (null? tail) + `() + (process-fields tail early?))) ;; This one is necessary to distinguish between r/mW mW, etc. -- 2.25.1