[Guile-commits] branch master updated: 'peval' test uses (language tree-il peval).

[Ludovic Courtès]

This is an automated email from the git hooks/post-receive script.

civodul pushed a commit to branch master
in repository guile.

The following commit(s) were added to refs/heads/master by this push:
     new f32ba44  'peval' test uses (language tree-il peval).
f32ba44 is described below

commit f32ba444ddc1f2e2481fa54d6438b8894b7f9ff1
Author: Ludovic Courtès <address@hidden>
AuthorDate: Sun May 17 17:55:30 2020 +0200

    '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 366d518..76fa271 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)