mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

'peval' test uses (language tree-il peval).

Browse source 
Fixes an unbound variable error introduced in
2c07a32ad8.

* test-suite/tests/peval.test: Use (language tree-il peval).
(peval): Remove.
This commit is contained in:
Ludovic Courtès 2020-05-17 17:55:30 +02:00
parent 0e912cee24
commit f32ba444dd
1 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
test-suite/tests/peval.test
View file

@ -23,15 +23,12 @@
#:use-module (system base pmatch) #:use-module (system base pmatch)
#:use-module (system base message) #:use-module (system base message)
#:use-module (language tree-il) #:use-module (language tree-il)
#:use-module (language tree-il primitives)
#:use-module (language tree-il fix-letrec) #: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 (rnrs bytevectors) ;; for the bytevector primitives
#:use-module (srfi srfi-13)) #:use-module (srfi srfi-13))
(define peval
;; The partial evaluator.
(@@ (language tree-il optimize) peval))
(define-syntax pass-if-peval (define-syntax pass-if-peval
(syntax-rules () (syntax-rules ()
((_ in pat) ((_ in pat)