From ce933c3c54c2bbc836c0c87e9fa3ace57fa2689c Mon Sep 17 00:00:00 2001 From: Lockywolf Date: Wed, 7 Aug 2019 14:28:46 +0800 Subject: Temporarily fix the symbol-module by appending (current-directory). --- scheme/chibi/geiser/geiser.scm | 5 +++-- 1 file 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 ) ) -- cgit v1.2.3