diff options
| author | mathieu2em <math.per@hotmail.com> | 2019-08-09 15:47:39 -0400 |
|---|---|---|
| committer | mathieu2em <math.per@hotmail.com> | 2019-08-20 15:31:38 -0400 |
| commit | 7c8d337c6ff2224ba1d878fbe5e58e15193bf71c (patch) | |
| tree | eff23b9df7c74901513868451672505f758f97c8 | |
| parent | 6381b39aab1cdbac16184a963d542acf33875753 (diff) | |
| download | geiser-guile-7c8d337c6ff2224ba1d878fbe5e58e15193bf71c.tar.gz geiser-guile-7c8d337c6ff2224ba1d878fbe5e58e15193bf71c.tar.bz2 | |
fixes autocompletion problem caused by bad choice of modules inclusion
| -rw-r--r-- | elisp/geiser-gambit.el | 4 | ||||
| -rw-r--r-- | scheme/gambit/geiser/gambit.scm | 3 |
2 files changed, 3 insertions, 4 deletions
diff --git a/elisp/geiser-gambit.el b/elisp/geiser-gambit.el index cd68e46..b12fcb1 100644 --- a/elisp/geiser-gambit.el +++ b/elisp/geiser-gambit.el @@ -298,8 +298,8 @@ If `t', Geiser will use `next-error' to jump to the error's location." ;; else we go load the file in geiser (let* ((v (geiser-gambit--version (geiser-gambit--binary))) (gambit-version (substring v 1 (string-width v)))) - (if (version< gambit-version "4.9.3") - `( ,(expand-file-name "gambit/geiser/gambit" geiser-scheme-dir) "-" ) + (if (version< gambit-version "4.9.4") + `( ,(expand-file-name "gambit/geiser/gambit.scm" geiser-scheme-dir) "-" ) `( "gambit/geiser" "-")))) diff --git a/scheme/gambit/geiser/gambit.scm b/scheme/gambit/geiser/gambit.scm index 8efab7b..74682f5 100644 --- a/scheme/gambit/geiser/gambit.scm +++ b/scheme/gambit/geiser/gambit.scm @@ -1,8 +1,7 @@ ;; scheme ;;; gambit.scm gambit geiser interaction (##namespace ("gambit/geiser#")) ;; in gambit/geiser# -(##include "~~lib/_prim#.scm") ;; map fx+ to ##fx+, etc -(##include "~~lib/_gambit#.scm") ;; for macro-check-string, +(##include "~~lib/gambit#.scm") ;; for macro-check-string, ;; macro-absent-obj, etc (define-macro (geiser:capture-output x . xs) |