From f32ba444ddc1f2e2481fa54d6438b8894b7f9ff1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 17 May 2020 17:55:30 +0200
Subject: [PATCH] 'peval' test uses (language tree-il peval).

Fixes an unbound variable error introduced in
2c07a32ad85d6fce8a0e09bb457e7ff1885b4615.

* test-suite/tests/peval.test: Use (language tree-il peval).
(peval): Remove.
---
 test-suite/tests/peval.test | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/test-suite/tests/peval.test b/test-suite/tests/peval.test
index 366d5186e..76fa271fd 100644
--- a/test-suite/tests/peval.test
+++ b/test-suite/tests/peval.test
@@ -23,15 +23,12 @@
   #:use-module (system base pmatch)
   #:use-module (system base message)
   #:use-module (language tree-il)
-  #:use-module (language tree-il primitives)
   #:use-module (language tree-il fix-letrec)
+  #:use-module (language tree-il peval)
+  #:use-module (language tree-il primitives)
   #:use-module (rnrs bytevectors) ;; for the bytevector primitives
   #:use-module (srfi srfi-13))
 
-(define peval
-  ;; The partial evaluator.
-  (@@ (language tree-il optimize) peval))
-
 (define-syntax pass-if-peval
   (syntax-rules ()
     ((_ in pat)