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) (define (current-saved-continuation-marks-and key val)
(reverse (reverse
(list* (cons key val) (list* (cons key val)
(filter (lambda (k*v) (not (equal? key (car k*v))))
(let-values ([(current) (let-values ([(current)
(continuation-mark-set->list (current-continuation-marks web-prompt) the-save-cm-key)]) (continuation-mark-set->list (current-continuation-marks web-prompt) the-save-cm-key)])
(if (empty? current) (if (empty? current)
empty empty
(first current)))))) (first current)))))))
;; current-continuation-as-list: -> (listof value) ;; current-continuation-as-list: -> (listof value)
;; check the safety marks and return the list of marks representing the continuation ;; 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)] (let* ([ke-prime (elim-callcc #'ke)]
[me-prime (elim-callcc #'me)] [me-prime (elim-callcc #'me)]
[be-prime (elim-callcc #'be)]) [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 (markit
(quasisyntax/loc stx (quasisyntax/loc stx
(with-continuation-mark #,ke-prime #,me-prime (with-continuation-mark #,ke-prime #,me-prime