suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

bug traced to something that expand-images is doing...

Browse Source
This commit is contained in:
Danny Yoo 2011-11-02 16:32:02 -04:00
parent 6ac094325a
commit af9e58c3b1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
get-module-bytecode.rkt
View File

@ -82,8 +82,8 @@
[current-namespace base-namespace]) [current-namespace base-namespace])
(port-count-lines! ip) (port-count-lines! ip)
(define stx (read-syntax (object-name ip) ip)) (define stx (read-syntax (object-name ip) ip))
(compile stx)
;(printf "got stx; now expanding out the images\n") ;(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") ;(printf "now trying to compile the expanded syntax\n")
(compile expanded-stx))) #;(compile expanded-stx)))