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

cs: fix inline of call-with-immediate-continuation-mark

Browse Source
This commit is contained in:
Matthew Flatt 2019-09-21 07:14:18 -06:00
parent b7dc3f4bda
commit c0c628e721
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1077,9 +1077,11 @@
;; It's a macro to ensure that the underlying `call-getting-continuation-attachment`
;; is exposed.
(define-syntax (call-with-immediate-continuation-mark/inline stx)
(syntax-case stx (lambda)
(syntax-case stx (lambda |#%name|)
[(_ key-expr proc-expr)
#'(call-with-immediate-continuation-mark/inline key-expr proc-expr #f)]
[(_ key-expr (|#%name| _ (lambda (arg) body ...)) default-v-expr)
#'(call-with-immediate-continuation-mark/inline key-expr (lambda (arg) body ...) #f)]
[(_ key-expr (lambda (arg) body ...) default-v-expr)
#'(call-getting-continuation-attachment
empty-mark-frame