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

Fix definition of defined?.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2014-04-22 09:41:09 -04:00
parent 00e05020d8
commit d47c85be22
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/base-env/extra-procs.rkt
View File

@ -12,5 +12,4 @@
val val
(error (format "Assertion ~a failed on ~v" pred val))))))) (error (format "Assertion ~a failed on ~v" pred val)))))))
(define (defined? v) (define (defined? v) #t)
(not (equal? v (letrec ([x x]) x))))