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

fix incorrect by-hand xform annotation

Browse Source 
svn: r12779
This commit is contained in:
Matthew Flatt 2008-12-11 19:35:01 +00:00
parent f7c16fc8bb
commit d80ef6a301
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/mzscheme/src/eval.c
View File

@ -8431,15 +8431,16 @@ scheme_do_eval(Scheme_Object *obj, int num_rands, Scheme_Object **rands,
case scheme_with_cont_mark_type:
{
Scheme_With_Continuation_Mark *wcm = (Scheme_With_Continuation_Mark *)obj;
GC_CAN_IGNORE Scheme_Object *key, *val;
Scheme_Object *key;
GC_CAN_IGNORE Scheme_Object *val;
UPDATE_THREAD_RSPTR();
key = wcm->key;
if (SCHEME_TYPE(key) < _scheme_values_types_)
key = _scheme_eval_linked_expr_wp(wcm->key, p);
key = _scheme_eval_linked_expr_wp(key, p);
val = wcm->val;
if (SCHEME_TYPE(val) < _scheme_values_types_)
val = _scheme_eval_linked_expr_wp(wcm->val, p);
val = _scheme_eval_linked_expr_wp(val, p);
scheme_set_cont_mark(key, val);