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

.

Browse Source 
original commit: 96880c44ab9cd1127fbf013dd1f863ff5e049369
This commit is contained in:
Matthew Flatt 2002-02-03 02:16:19 +00:00
parent adabeaadae
commit 3539dc22ec
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mzlib/etc.ss
View File

@ -424,12 +424,12 @@
[(_ expr0 expr ...) [(_ expr0 expr ...)
(syntax (begin expr0 expr ... rest))])))))]))) (syntax (begin expr0 expr ... rest))])))))])))
(define ns-undefined (gensym))
(define (namespace-defined? n) (define (namespace-defined? n)
(unless (symbol? n) (unless (symbol? n)
(raise-type-error 'namespace-defined? "symbol" n)) (raise-type-error 'namespace-defined? "symbol" n))
(with-handlers ([exn:variable? (lambda (x) #f)]) (not (eq? (namespace-variable-value n #t (lambda () ns-undefined)) ns-undefined)))
(namespace-variable-binding n)
#t))
(define-syntax (this-expression-source-directory stx) (define-syntax (this-expression-source-directory stx)
(syntax-case stx () (syntax-case stx ()