gash: Do not try readline on Mes.

* gash/gash.scm [mes]: Do not try to import '(ice-9 readline)'.
This commit is contained in:
Timothy Sample 2023-02-08 13:08:16 -06:00
parent ac4a84df54
commit b741e2a3e7
1 changed files with 9 additions and 5 deletions

View File

@ -39,11 +39,15 @@
#:use-module (srfi srfi-26) #:use-module (srfi srfi-26)
#:export (main)) #:export (main))
(eval-when (expand load eval) (cond-expand
(catch #t (guile
(lambda _ (use-modules (ice-9 readline))) (eval-when (expand load eval)
(lambda (key . args) (catch #t
(use-modules (gash readline))))) (lambda _ (use-modules (ice-9 readline)))
(lambda (key . args)
(use-modules (gash readline))))))
(mes
(use-modules (gash readline))))
;; This is done automatically since Guile 2.2. ;; This is done automatically since Guile 2.2.
(if-guile-version-below (2 2 0) (if-guile-version-below (2 2 0)