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

.

Browse Source 
original commit: a248f58e8c09a8d1fd947bac5ab6499b31e08032
This commit is contained in:
Matthew Flatt 2001-10-12 20:04:33 +00:00
parent 658148677f
commit 25a7b999f8
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/mzlib/etc.ss
View File

@ -425,15 +425,25 @@
(define-syntax (this-expression-source-directory stx)
(syntax-case stx ()
[(_)
(let ([source (syntax-source stx)])
(let ([source (syntax-source stx)]
[local (lambda ()
(let ([s (or (current-load-relative-directory)
(current-directory))])
(datum->syntax-object
(quote-syntax 'here)
s
stx)))])
(if (and source
(string? source)
(file-exists? source))
(let-values ([(base file dir?) (split-path source)])
(with-syntax ([base base])
(syntax base)))
(syntax (or (current-load-relative-directory)
(current-directory)))))]))
(cond
[(string? base)
(with-syntax ([base base])
(syntax base))]
[else ; must be (eq? base 'relative)
(local)]))
(local)))]))
;; This is a macro-generating macro that wants to expand
;; expressions used in the generated macro. So it's weird,