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

fixing space

Browse Source 
svn: r8806
This commit is contained in:
Jay McCarthy 2008-02-26 19:34:21 +00:00
parent 743db7529d
commit 54ed23be3b
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/web-server/lang/abort-resume.ss
View File

@ -36,11 +36,12 @@
(define (current-saved-continuation-marks-and key val)
(reverse
(list* (cons key val)
(filter (lambda (k*v) (not (equal? key (car k*v))))
(let-values ([(current)
(continuation-mark-set->list (current-continuation-marks web-prompt) the-save-cm-key)])
(if (empty? current)
empty
(first current))))))
(first current)))))))
;; current-continuation-as-list: -> (listof value)
;; check the safety marks and return the list of marks representing the continuation

2
collects/web-server/lang/elim-callcc.ss
View File

@ -68,7 +68,7 @@
(let* ([ke-prime (elim-callcc #'ke)]
[me-prime (elim-callcc #'me)]
[be-prime (elim-callcc #'be)])
; XXX Could be dangerous to evaluate ke-prime and me-prime twice
; Could be dangerous to evaluate ke-prime and me-prime twice (but remember, this is in ANF)
(markit
(quasisyntax/loc stx
(with-continuation-mark #,ke-prime #,me-prime