From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 13 Feb 1992 05:42:40 +0000 (+0000)
Subject: More changes.
X-Git-Tag: 20090517-FFI~9771
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3f79d91e248a77cdd1dd3d39b51414ad0f930ff5;p=mit-scheme.git

More changes.
---

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.