From 54fda9a73198d51a09f8838f5076545ad653bd6e Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Sun, 14 Mar 2010 19:11:27 -0700 Subject: [PATCH] Construct open-blocks from sequence-2. --- src/runtime/scan.scm | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) 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) -- 2.25.1