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

fixup

Browse Source
This commit is contained in:
Eric Dobson 2014-03-21 10:03:08 -07:00
parent 534f41e729
commit a7d6809243
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/types/current-seen.rkt
View File

@ -8,7 +8,7 @@
(define (current-seen)
(continuation-mark-set-first #f current-seen-mark null))
(define (currently-subtyping?)
(and (continuation-mark-set-first #f current-seen-mark) #t))
(continuation-mark-set-first #f current-seen-mark))
(define-syntax-rule (update-current-seen new-value body)
(with-continuation-mark current-seen-mark new-value body))