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

try "phase-collapsing" instead of "phaseless"

Browse Source 
original commit: 2646ff6895
This commit is contained in:
Matthew Flatt 2013-02-26 18:36:06 -07:00
parent e97bb74005
commit d728e9118d
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/compiler/zo-marshal.rkt
View File

@ -1091,7 +1091,7 @@
[l (cons lang-info l)] ; lang-info [l (cons lang-info l)] ; lang-info
[l (cons (map convert-module post-submodules) l)] [l (cons (map convert-module post-submodules) l)]
[l (cons (map convert-module pre-submodules) l)] [l (cons (map convert-module pre-submodules) l)]
[l (cons (if (memq 'phaseless flags) #t #f) l)] [l (cons (if (memq 'phase-collapsing flags) #t #f) l)]
[l (cons self-modidx l)] [l (cons self-modidx l)]
[l (cons srcname l)] [l (cons srcname l)]
[l (cons (if (pair? name) (car name) name) l)] [l (cons (if (pair? name) (car name) name) l)]

4
collects/compiler/zo-parse.rkt
View File

@ -251,7 +251,7 @@
(define (read-module v) (define (read-module v)
(match v (match v
[`(,submod-path [`(,submod-path
,name ,srcname ,self-modidx ,phaseless? ,name ,srcname ,self-modidx ,phase-collapsing?
,pre-submods ,post-submods ,pre-submods ,post-submods
,lang-info ,functional? ,et-functional? ,lang-info ,functional? ,et-functional?
,rename ,max-let-depth ,dummy ,rename ,max-let-depth ,dummy
@ -337,7 +337,7 @@
dummy dummy
lang-info lang-info
rename rename
(if phaseless? '(phaseless) '()) (if phase-collapsing? '(phase-collapsing) '())
(map read-module pre-submods) (map read-module pre-submods)
(map read-module post-submods))]))])) (map read-module post-submods))]))]))
(define (read-module-wrap v) (define (read-module-wrap v)

2
collects/compiler/zo-structs.rkt
View File

@ -139,7 +139,7 @@
[dummy toplevel?] [dummy toplevel?]
[lang-info (or/c #f (vector/c module-path? symbol? any/c))] [lang-info (or/c #f (vector/c module-path? symbol? any/c))]
[internal-context (or/c #f #t stx? (vectorof stx?))] [internal-context (or/c #f #t stx? (vectorof stx?))]
[flags (listof (or/c 'phaseless))] [flags (listof (or/c 'phase-collapsing))]
[pre-submodules (listof mod?)] [pre-submodules (listof mod?)]
[post-submodules (listof mod?)])) [post-submodules (listof mod?)]))