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


Reply via email to