tests: Move (ice-9 syncase) into cond-expand.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 25 Dec 2016 21:48:06 +0000 (22:48 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 25 Dec 2016 21:48:06 +0000 (22:48 +0100)
* tests/psyntax.mes: Move (ice-9 syncase) into cond-expand.  Fixes
  guile-2 deprecation messages.

tests/psyntax.test

index 7370926968854cbeff6fa402fbd6a67425e8a3b2..c3c3127e8d01aa12cb58062cb5b9db88369410ac 100755 (executable)
@@ -26,12 +26,13 @@ exit $?
 ;;; along with Mes.  If not, see <http://www.gnu.org/licenses/>.
 
 (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))))