Nigko Yerden wrote:
(dirname (canonicalize-path (string-append (current-source-directory) (current-filename))))
Sorry, this expression for source directory is wrong. The correct one: (dirname (canonicalize-path (string-append (current-source-directory) "/" (basename (module-filename (current-module)))))) By the way this can also be used in the definition of 'checkout-dir', instead of direct call to '(search-path %load-path ...)'. Regards, Nigko