Construct open-blocks from sequence-2.

diff --git a/src/runtime/scan.scm b/src/runtime/scan.scm
index d4a870e739a1cd4650c331aee5bbcf13c1e7ad6a..595e733d429c07320a2a8b0b4a444c779ca6e1be 100644 (file)
--- a/src/runtime/scan.scm
+++ b/src/runtime/scan.scm
@@ -182,16 +182,18 @@ USA.
   (if (and (null? names)
           (null? declarations))
       body
-      (&typed-triple-cons
-       sequence-3-type
+      (&typed-pair-cons
+       sequence-2-type
        (vector open-block-tag names declarations)
-       (if (null? names)
-          '()
-          (make-sequence
-           (map (lambda (name)
-                  (make-definition name (make-unassigned-reference-trap)))
-                names)))
-       body)))
+       (&typed-pair-cons
+       sequence-2-type
+       (if (null? names)
+           '()
+           (make-sequence
+            (map (lambda (name)
+                   (make-definition name (make-unassigned-reference-trap)))
+                 names)))
+       body))))
 
 (define (open-block? object)
   (or (and (object-type? sequence-2-type object)