From a36896662e838aba4ff9a88d88141b80a9d3100b Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 25 Dec 2016 11:13:51 +0100
Subject: [PATCH] optargs guile

---
 tests/optargs.test | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/tests/optargs.test b/tests/optargs.test
index 4e130e7d..15c680c9 100755
--- a/tests/optargs.test
+++ b/tests/optargs.test
@@ -25,8 +25,13 @@ exit $?
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with Mes.  If not, see <http://www.gnu.org/licenses/>.
 
-(mes-use-module (mes optargs))
-(mes-use-module (mes test))
+(cond-expand
+ (guile-2)
+ (guile
+  (use-modules (ice-9 optargs)))
+ (mes
+  (mes-use-module (mes optargs))
+  (mes-use-module (mes test))))
 
 (pass-if-equal "cond =>" 10
   (cond