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

fix supression of exn during constant folding

Browse Source 
svn: r10832
This commit is contained in:
Matthew Flatt 2008-07-18 12:03:20 +00:00
parent 57a3449003
commit 730554c938
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/mzscheme/src/eval.c
View File

@ -1085,7 +1085,7 @@ static Scheme_Object *try_apply(Scheme_Object *f, Scheme_Object *args, Scheme_Ob
Scheme_Object * volatile result;
mz_jmp_buf *savebuf, newbuf;
scheme_current_thread->constant_folding = context;
scheme_current_thread->constant_folding = (context ? context : scheme_true);
savebuf = scheme_current_thread->error_buf;
scheme_current_thread->error_buf = &newbuf;