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

Fix check for interactively defined module paths.

Browse Source
This commit is contained in:
Kevin Tew 2011-09-01 14:54:25 -06:00
parent 29205fa91a
commit dbcf70db30
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/tests/racket/place.rktl
View File

@ -5,7 +5,6 @@
(place-wait (place/base (p1 ch)
(printf "Hello from place\n")))
(err/rt-test (dynamic-place 'tmodule 'tfunc))
(let ([p (place/base (p1 ch)
(printf "Hello form place 2\n")
@ -32,6 +31,8 @@
(err/rt-test (dynamic-place "foo.rkt"))
(err/rt-test (dynamic-place null 10))
(err/rt-test (dynamic-place "foo.rkt" 10))
(err/rt-test (dynamic-place '(quote some-module) 'tfunc))
(let ([p (place/base (p1 ch)
(printf "Hello form place 2\n")

7
src/racket/src/place.c
View File

@ -24,6 +24,7 @@ static Scheme_Object* scheme_place_enabled(int argc, Scheme_Object *args[]);
static Scheme_Object* scheme_place_shared(int argc, Scheme_Object *args[]);
THREAD_LOCAL_DECL(int scheme_current_place_id);
ROSYM static Scheme_Object *quote_symbol;
#ifdef MZ_USE_PLACES
@ -132,6 +133,8 @@ void scheme_init_place(Scheme_Env *env)
#endif
scheme_finish_primitive_module(plenv);
REGISTER_SO(quote_symbol);
quote_symbol = scheme_intern_symbol("quote");
}
static Scheme_Object* scheme_place_enabled(int argc, Scheme_Object *args[]) {
@ -227,8 +230,8 @@ Scheme_Object *scheme_place(int argc, Scheme_Object *args[]) {
if (!scheme_is_module_path(args[0]) && !SCHEME_PATHP(args[0])) {
scheme_wrong_type("dynamic-place", "module-path or path", 0, argc, args);
}
if (SCHEME_SYMBOLP(args[0])) {
scheme_wrong_type("dynamic-place", "non-symbol module-path", 0, argc, args);
if (SCHEME_PAIRP(args[0]) && SAME_OBJ(SCHEME_CAR(args[0]), quote_symbol)) {
scheme_wrong_type("dynamic-place", "non-interactively defined module-path", 0, argc, args);
}
if (!SCHEME_SYMBOLP(args[1])) {
scheme_wrong_type("dynamic-place", "symbol", 1, argc, args);