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

raise, etc. as non-cm

Browse Source 
svn: r9102
This commit is contained in:
Matthew Flatt 2008-03-28 15:26:09 +00:00
parent a2e36fd2b6
commit a4e70f72b2
1 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/mzscheme/src/error.c
View File

@ -497,26 +497,26 @@ void scheme_init_error(Scheme_Env *env)
1, -1),
env);
scheme_add_global_constant("raise-user-error",
scheme_make_prim_w_arity(raise_user_error,
scheme_make_noncm_prim(raise_user_error,
"raise-user-error",
1, -1),
env);
scheme_add_global_constant("raise-syntax-error",
scheme_make_prim_w_arity(raise_syntax_error,
scheme_make_noncm_prim(raise_syntax_error,
"raise-syntax-error",
2, 4),
env);
scheme_add_global_constant("raise-type-error",
scheme_make_prim_w_arity(raise_type_error,
scheme_make_noncm_prim(raise_type_error,
"raise-type-error",
3, -1),
env);
scheme_add_global_constant("raise-mismatch-error",
scheme_make_prim_w_arity(raise_mismatch_error,
scheme_make_noncm_prim(raise_mismatch_error,
"raise-mismatch-error",
3, 3),
env);
scheme_raise_arity_error_proc = scheme_make_prim_w_arity(raise_arity_error,
scheme_raise_arity_error_proc = scheme_make_noncm_prim(raise_arity_error,
"raise-arity-error",
2, -1);
scheme_add_global_constant("raise-arity-error",
@ -558,7 +558,7 @@ void scheme_init_error(Scheme_Env *env)
MZCONFIG_ERROR_PRINT_SRCLOC),
env);
scheme_add_global_constant("exit",
scheme_make_prim_w_arity(scheme_do_exit,
scheme_make_noncm_prim(scheme_do_exit,
"exit",
0, 1),
env);
@ -2912,7 +2912,7 @@ void scheme_init_exn(Scheme_Env *env)
env);
scheme_add_global_constant("raise",
scheme_make_prim_w_arity(sch_raise,
scheme_make_noncm_prim(sch_raise,
"raise",
1, 2),
env);