From cd4c737199426981abbb1b3c95f1264102231c68 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 12 Jan 2018 21:44:59 -0800
Subject: [PATCH] Fix bug in compilation of %record with 0 or 1 arguments.

---
 src/compiler/rtlgen/opncod.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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
-- 
2.25.1