Fix editing error.
authorChris Hanson <org/chris-hanson/cph>
Thu, 18 Aug 1988 02:02:37 +0000 (02:02 +0000)
committerChris Hanson <org/chris-hanson/cph>
Thu, 18 Aug 1988 02:02:37 +0000 (02:02 +0000)
v7/src/compiler/fggen/fggen.scm

index 2fff5b84712472cb830cb186aa6ba06b902dfd7e..9fc4c3ca10aa51d0a9a7fdb9a93dceac85ce933d 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fggen/fggen.scm,v 4.9 1988/08/18 01:35:15 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fggen/fggen.scm,v 4.10 1988/08/18 02:02:37 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -496,7 +496,7 @@ MIT in each case. |#
           (lambda () (make-combination false continuation))
           (lambda ()
             (if (variable? continuation)
-                (make-combination continuation)
+                (make-combination false continuation)
                 (with-reified-continuation block
                                            continuation
                                            scfg*scfg->scfg!