From 0d41b2d55281ac9677eccb6956c898c73e90854c Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 29 Jun 1987 20:31:38 +0000 Subject: [PATCH] Add test to guarantee that all continuations are code generated. --- v7/src/compiler/back/lapgn1.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/v7/src/compiler/back/lapgn1.scm b/v7/src/compiler/back/lapgn1.scm index daaf62bae..f92ea948c 100644 --- a/v7/src/compiler/back/lapgn1.scm +++ b/v7/src/compiler/back/lapgn1.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/lapgn1.scm,v 1.37 1987/06/13 21:17:14 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/lapgn1.scm,v 1.38 1987/06/29 20:31:38 cph Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -63,6 +63,11 @@ MIT in each case. |# (queue-map! *continuation-queue* (lambda (continuation) (cgen-entry continuation continuation-rtl-entry))) + (for-each (lambda (continuation) + (if (not (continuation-frame-pointer-offset continuation)) + (error "GENERATE-LAP: Continuation not processed" + continuation))) + *continuations*) (receiver *block-start-label* (generate/quotation-header *block-start-label* *interned-constants* -- 2.25.1