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

Precompute hash of scheme_default_prompt_tag

Browse Source 
svn: r16149
This commit is contained in:
Kevin Tew 2009-09-28 21:12:52 +00:00
parent d69af45338
commit 3840b6f50b
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/mzscheme/src/fun.c
View File

@ -559,6 +559,7 @@ scheme_init_fun (Scheme_Env *env)
Scheme_Object *a[1]; Scheme_Object *a[1];
a[0] = scheme_intern_symbol("default"); a[0] = scheme_intern_symbol("default");
scheme_default_prompt_tag = make_prompt_tag(1, a); scheme_default_prompt_tag = make_prompt_tag(1, a);
scheme_hash_key(SCHEME_PTR_VAL(scheme_default_prompt_tag));
} }
REGISTER_SO(original_default_prompt); REGISTER_SO(original_default_prompt);