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

fix namespace-variable-value error reporting

Browse Source 
closes PR 13387
This commit is contained in:
Robby Findler 2012-12-23 16:42:40 -06:00
parent fc2f931755
commit aa27011f34
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1592,7 +1592,7 @@ namespace_variable_value(int argc, Scheme_Object *argv[])
use_map = ((argc > 1) ? SCHEME_TRUEP(argv[1]) : 1);
if ((argc > 2) && SCHEME_TRUEP(argv[2])
&& !scheme_check_proc_arity(NULL, 0, 2, argc, argv))
scheme_wrong_contract("namespace-variable-value", "(or/c (-> any) #f)", 1, argc, argv);
scheme_wrong_contract("namespace-variable-value", "(or/c (-> any) #f)", 2, argc, argv);
if ((argc > 3) && !SCHEME_NAMESPACEP(argv[3]))
scheme_wrong_contract("namespace-variable-value", "namespace?", 3, argc, argv);