From 15518f92af3ba4fe70feb5f3f2e6e412f5e51cb1 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sun, 25 Dec 2016 22:48:06 +0100 Subject: [PATCH] tests: Move (ice-9 syncase) into cond-expand. * tests/psyntax.mes: Move (ice-9 syncase) into cond-expand. Fixes guile-2 deprecation messages. --- tests/psyntax.test | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/tests/psyntax.test b/tests/psyntax.test index 73709269..c3c3127e 100755 --- a/tests/psyntax.test +++ b/tests/psyntax.test @@ -26,12 +26,13 @@ exit $? ;;; along with Mes. If not, see . (cond-expand - (guile - ;;(use-modules (ice-9 syncase)) + (guile-2 (define sc-expand identity) (define syntax-object->datum syntax->datum) - (define datum->syntax-object datum->syntax) - ) + (define datum->syntax-object datum->syntax)) + (guile + (use-modules (ice-9 syncase)) + (define sc-expand identity)) (mes (mes-use-module (mes psyntax)) (mes-use-module (mes test))))