From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 13 Jan 2018 05:44:59 +0000 (-0800)
Subject: Fix bug in compilation of %record with 0 or 1 arguments.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~374
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cd4c737199426981abbb1b3c95f1264102231c68;p=mit-scheme.git

Fix bug in compilation of %record with 0 or 1 arguments.
---

diff --git a/src/compiler/rtlgen/opncod.scm b/src/compiler/rtlgen/opncod.scm
index 85a984ccc..e31d69a88 100644
--- a/src/compiler/rtlgen/opncod.scm
+++ b/src/compiler/rtlgen/opncod.scm
@@ -934,10 +934,10 @@ USA.
 		false)
 	(values false false false))))
 
-(define-open-coder/value '%RECORD
+(define-open-coder/value '%record
   (lambda (operands primitive block)
     primitive block			;ignore
-    (if (< 1 (length operands) 32)
+    (if (< (length operands) 32)
 	(values (lambda (combination expressions finish)
 		  combination
 		  (finish