From ca4ea39123cabd4ae81b6221688a43bf6d113fe7 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Fri, 1 Apr 2011 16:46:04 -0400 Subject: [PATCH] in stepper/private/annotate.rkt: - add cases to annotate/top-level to recognize Lazy Racket programs --- collects/stepper/private/annotate.rkt | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/collects/stepper/private/annotate.rkt b/collects/stepper/private/annotate.rkt index 9faadd9994..e4843ec1fd 100644 --- a/collects/stepper/private/annotate.rkt +++ b/collects/stepper/private/annotate.rkt @@ -1189,6 +1189,10 @@ (#%plain-lambda () . rest2) (#%plain-lambda () . rest3))) exp] + ; STC: for lazy + [(#%plain-app . terms) (annotate/module-top-level exp)] + ; STC: for lazy, handle defines + [(define-values (ids ...) bodies) (annotate/module-top-level exp)] [else (error `annotate/top-level "unexpected top-level expression: ~a\n" (syntax->datum exp))