From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Mon, 15 Mar 2010 02:11:27 +0000 (-0700)
Subject: Construct open-blocks from sequence-2.
X-Git-Tag: 20100708-Gtk~95
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=54fda9a73198d51a09f8838f5076545ad653bd6e;p=mit-scheme.git

Construct open-blocks from sequence-2.
---

diff --git a/src/runtime/scan.scm b/src/runtime/scan.scm
index d4a870e73..595e733d4 100644
--- 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)