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

fix checking for `syntax-local-lift-require'

Browse Source 
Closes PR 12894
This commit is contained in:
Matthew Flatt 2012-07-11 14:03:07 -06:00
parent a022e78ab1
commit f747c086d8
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/racket/macro.rktl
View File

@ -736,4 +736,8 @@
;; ----------------------------------------
(err/rt-test (syntax-local-lift-require 'abc #'def))
;; ----------------------------------------
(report-errs)

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

@ -2573,11 +2573,12 @@ static Scheme_Object *local_lift_require(int argc, Scheme_Object *argv[])
env = scheme_current_thread->current_local_env;
local_mark = scheme_current_thread->current_local_mark;
phase = env->genv->phase;
if (!env)
not_currently_transforming("syntax-local-lift-require");
phase = env->genv->phase;
return scheme_local_lift_require(argv[0], argv[1], phase, local_mark, env);
}