From b741e2a3e72e096f22b7a6f1bfd611d0aa86f0ca Mon Sep 17 00:00:00 2001
From: Timothy Sample <samplet@ngyro.com>
Date: Wed, 8 Feb 2023 13:08:16 -0600
Subject: [PATCH] gash: Do not try readline on Mes.

* gash/gash.scm [mes]: Do not try to import '(ice-9 readline)'.
---
 gash/gash.scm | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/gash/gash.scm b/gash/gash.scm
index 352c851..5521e24 100644
--- a/gash/gash.scm
+++ b/gash/gash.scm
@@ -39,11 +39,15 @@
   #:use-module (srfi srfi-26)
   #:export (main))
 
-(eval-when (expand load eval)
-  (catch #t
-    (lambda _ (use-modules (ice-9 readline)))
-    (lambda (key . args)
-      (use-modules (gash readline)))))
+(cond-expand
+ (guile
+  (eval-when (expand load eval)
+    (catch #t
+      (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.
 (if-guile-version-below (2 2 0)