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

fix phase-collapsing-module inference

Browse Source 
This bug was causing a crash in some DrRacket tests.
This commit is contained in:
Matthew Flatt 2013-02-26 19:18:16 -07:00
parent e15569e006
commit a04bfa5ba2
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/tests/racket/syntax.rktl
View File

@ -1771,6 +1771,12 @@
30) 30)
(test 30 int-def-check2)) (test 30 int-def-check2))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Make sure `#%variable-reference' can be compiled and expanded
(compile '(#%variable-reference))
(expand '(#%variable-reference))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(report-errs) (report-errs)

3
src/racket/src/compile.c
View File

@ -1335,7 +1335,8 @@ ref_syntax (Scheme_Object *form, Scheme_Comp_Env *env, Scheme_Compile_Info *rec,
Scheme_Object *var, *name, *rest, *dummy, *lex_id = NULL; Scheme_Object *var, *name, *rest, *dummy, *lex_id = NULL;
int l, ok; int l, ok;
env->prefix->non_phaseless = 1; if (rec[drec].comp)
env->prefix->non_phaseless = 1;
form = scheme_stx_taint_disarm(form, NULL); form = scheme_stx_taint_disarm(form, NULL);