From cddd4e4e666e1272cd18c59b34ac1d4e43785149 Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Thu, 30 Jun 2005 19:29:41 +0000 Subject: [PATCH] svn: r283 --- collects/profj/build-info.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/profj/build-info.ss b/collects/profj/build-info.ss index 2757806ce2..9d37d1522b 100644 --- a/collects/profj/build-info.ss +++ b/collects/profj/build-info.ss @@ -249,9 +249,9 @@ (lambda (p) (parse p location (unbox new-level)))))) (send type-recs set-compilation-location location (build-path dir "compiled")) (build-info ast (unbox new-level) type-recs 'not_look_up) - (send type-recs get-class-record class-name #f - (lambda () 'internal-error "Failed to add record")) - (dynamic? old-dynamic?) + (begin0 (send type-recs get-class-record class-name #f + (lambda () 'internal-error "Failed to add record")) + (dynamic? old-dynamic?)) )))) (send type-recs add-require-syntax class-name (build-require-syntax class path dir #t #f))) (else (file-error 'file (cons class path) caller-src level)))