From a7fa6fc9bd15bde98bc31c4dbe07f18647cb2a33 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Sat, 21 Jan 2012 11:22:01 -0800 Subject: [PATCH] Use scode/sequence-... procedures. --- src/compiler/fggen/fggen.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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) -- 2.25.1