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

fix non-JIT crash in multiple-value result from first part of apply-values

Browse Source 
svn: r4197
This commit is contained in:
Matthew Flatt 2006-08-30 22:26:47 +00:00
parent d1fe9f9645
commit 15c3b1db7e
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/syntax.c
View File

@ -1814,7 +1814,7 @@ static Scheme_Object *apply_values_execute(Scheme_Object *data)
f = SCHEME_CAR(data); f = SCHEME_CAR(data);
f = _scheme_eval_linked_expr_multi(f); f = _scheme_eval_linked_expr(f);
if (!SCHEME_PROCP(f)) { if (!SCHEME_PROCP(f)) {
Scheme_Object *a[1]; Scheme_Object *a[1];
a[0] = f; a[0] = f;