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

adapt demodularizer to `compiler/zo-struct' change

Browse Source
This commit is contained in:
Matthew Flatt 2011-07-01 22:44:48 -06:00
parent 4d38f491ca
commit 98740390fa
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/compiler/demodularizer/nodep.rkt
View File

@ -163,13 +163,13 @@
empty empty
(begin (begin
(hash-set! REQUIRED ct #t) (hash-set! REQUIRED ct #t)
(list (make-req (make-stx (make-wrapped ct empty #f)) (make-toplevel 0 0 #f #f)))))] (list (make-req (make-stx (make-wrapped ct empty 'clean)) (make-toplevel 0 0 #f #f)))))]
[(module-path-index? ct) [(module-path-index? ct)
(if (hash-has-key? REQUIRED ct) (if (hash-has-key? REQUIRED ct)
empty empty
(begin (begin
(hash-set! REQUIRED ct #t) (hash-set! REQUIRED ct #t)
(list (make-req (make-stx (make-wrapped ct empty #f)) (make-toplevel 0 0 #f #f)))))] (list (make-req (make-stx (make-wrapped ct empty 'clean)) (make-toplevel 0 0 #f #f)))))]
[(not ct) [(not ct)
empty] empty]
[(@phase? ct) [(@phase? ct)