On Thu 16 Feb 2012 22:34, [email protected] (Ludovic Courtès) writes:
> Andy Wingo <[email protected]> skribis:
>
>> (define-syntax current-filename
>> (lambda (x)
>> "A macro that expands to the current filename: the filename that
>> the (current-filename) form appears in. Expands to #f if this
>> information is unavailable."
>> (false-if-exception
>> (pk 'canonicalized (canonicalize-path (pk 'filename (assq-ref
>> (syntax-source x) 'filename)))))))
>
> What about not canonicalizing the file name?
That makes this recipe not work:
(add-to-load-path (dirname (current-filename)))
I think the canonicalize-path was added after Neil's concerns about
add-to-load-path. We could take it out if that's the thing to do;
dunno.
A
--
http://wingolog.org/
