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

cs: unbreak continuation-mark chaperones

Browse Source
This commit is contained in:
Matthew Flatt 2018-07-30 07:02:59 -06:00
parent d9ec0705cf
commit 810d6da3c8
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/src/cs/rumble/control.ss
View File

@ -833,11 +833,13 @@
(define (mark-frame-update a key val)
(cond
[(not a) (cons key val)]
[(not a) (if (impersonator? key)
(mark-frame-update (make-mark-frame '() #f #f) key val)
(cons key val))]
[(pair? a)
(if (eq? key (car a))
(cons key val)
(make-mark-frame (mark-table-add/replace (pair->mark-table a) key val)
(make-mark-frame (mark-table-add/replace* (pair->mark-table a) key val)
#f
#f))]
[(eq? a 'empty)
@ -846,7 +848,7 @@
(current-mark-splice (mark-frame-update (current-mark-splice) key val))
'empty]
[(mark-frame? a)
(make-mark-frame (mark-table-add/replace (mark-frame-table a) key val)
(make-mark-frame (mark-table-add/replace* (mark-frame-table a) key val)
(mark-frame-end-uninterupted? a)
#f)]))