From ff7f9ce9a2713e85964b7209383d900db4abe50e Mon Sep 17 00:00:00 2001 From: Eric Dobson Date: Fri, 21 Mar 2014 10:03:08 -0700 Subject: [PATCH] fixup original commit: a7d6809243cbe4bf88863e369dbd2f654cca0362 --- .../typed-racket-lib/typed-racket/types/current-seen.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/types/current-seen.rkt b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/types/current-seen.rkt index ab9160be..f44c56a3 100644 --- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/types/current-seen.rkt +++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/types/current-seen.rkt @@ -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))