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 85a984ccc9e2761fab20712944c547b2e63677a4..e31d69a8858b4dbc74f5b2ee661ac7ed6aaf8bc3 100644 (file)
--- 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