diff options
| author | Lockywolf <lockywolf@gmail.com> | 2019-08-07 14:28:46 +0800 |
|---|---|---|
| committer | Lockywolf <lockywolf@gmail.com> | 2019-08-07 14:28:46 +0800 |
| commit | ce933c3c54c2bbc836c0c87e9fa3ace57fa2689c (patch) | |
| tree | 6b69278e419dce0dc61c10c236a0f2be7853146c /scheme | |
| parent | 9b0386991c360391c7b48de5451108b939ecf314 (diff) | |
| download | geiser-guile-ce933c3c54c2bbc836c0c87e9fa3ace57fa2689c.tar.gz geiser-guile-ce933c3c54c2bbc836c0c87e9fa3ace57fa2689c.tar.bz2 | |
Temporarily fix the symbol-module by appending (current-directory).
Diffstat (limited to 'scheme')
| -rw-r--r-- | scheme/chibi/geiser/geiser.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/scheme/chibi/geiser/geiser.scm b/scheme/chibi/geiser/geiser.scm index 5f9e25e..9218646 100644 --- a/scheme/chibi/geiser/geiser.scm +++ b/scheme/chibi/geiser/geiser.scm @@ -120,8 +120,9 @@ (define (geiser:module-location symbol-representing-module) (make-location - (find-module-file + (string-append (current-directory) "/" + (find-module-file (module-name->file (module-name - (find-module symbol-representing-module)))) + (find-module symbol-representing-module))))) 0 ) ) |