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

fixup

Browse Source 
original commit: a7d6809243cbe4bf88863e369dbd2f654cca0362
This commit is contained in:
Eric Dobson 2014-03-21 10:03:08 -07:00
parent 2d27138aea
commit ff7f9ce9a2
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))