From d47c85be22f5c55149a458c8940fa53567b241b7 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Tue, 22 Apr 2014 09:41:09 -0400 Subject: [PATCH] Fix definition of `defined?`. --- .../typed-racket-lib/typed-racket/base-env/extra-procs.rkt | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/base-env/extra-procs.rkt b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/base-env/extra-procs.rkt index 29e1a64b82..e28cd47c43 100644 --- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/base-env/extra-procs.rkt +++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/base-env/extra-procs.rkt @@ -12,5 +12,4 @@ val (error (format "Assertion ~a failed on ~v" pred val))))))) -(define (defined? v) - (not (equal? v (letrec ([x x]) x)))) +(define (defined? v) #t)