From: Joe Marshall <eval.apply@gmail.com>
Date: Sat, 21 Jan 2012 19:22:01 +0000 (-0800)
Subject: Use scode/sequence-... procedures.
X-Git-Tag: release-9.2.0~334^2~4
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a7fa6fc9bd15bde98bc31c4dbe07f18647cb2a33;p=mit-scheme.git

Use scode/sequence-... procedures.
---

diff --git a/src/compiler/fggen/fggen.scm b/src/compiler/fggen/fggen.scm
index 729e072f1..a3cce7eba 100644
--- a/src/compiler/fggen/fggen.scm
+++ b/src/compiler/fggen/fggen.scm
@@ -501,16 +501,17 @@ USA.
 ;;;; Combinators
 
 (define (generate/sequence block continuation context expression)
-  (if (object-type? (ucode-type sequence-2) expression)
+  (if (scode/sequence? expression)
       ;; This is done in a funny way to enforce processing in sequence order.
       ;; In this way, compile-by-procedures compiles in a predictable order.
       (let ((first (generate/subproblem/effect
 		    block continuation context
-		    (&pair-car expression) 'SEQUENCE-2-SECOND
+		    (scode/sequence-first expression) 'SEQUENCE-2-SECOND
 		    expression)))
 	((scfg*ctype->ctype! continuation)
 	 first
-	 (generate/expression block continuation context (&pair-cdr expression))))
+	 (generate/expression block continuation context
+			      (scode/sequence-second expression))))
       (error "Not a sequence" expression)))
 
 (define (generate/conditional block continuation context expression)