From af9e58c3b171ca62571b4df2a24a9bf5ab680b87 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Wed, 2 Nov 2011 16:32:02 -0400 Subject: [PATCH] bug traced to something that expand-images is doing... --- get-module-bytecode.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/get-module-bytecode.rkt b/get-module-bytecode.rkt index 0b43f2a..f2a3854 100644 --- a/get-module-bytecode.rkt +++ b/get-module-bytecode.rkt @@ -82,8 +82,8 @@ [current-namespace base-namespace]) (port-count-lines! ip) (define stx (read-syntax (object-name ip) ip)) - + (compile stx) ;(printf "got stx; now expanding out the images\n") - (define expanded-stx (expand-out-images stx)) + #;(define expanded-stx (expand-out-images stx)) ;(printf "now trying to compile the expanded syntax\n") - (compile expanded-stx))) \ No newline at end of file + #;(compile expanded-stx))) \ No newline at end of file