Remove a couple of uses of GLIL from the test suite.

* test-suite/tests/cse.test ("cse"):
* test-suite/tests/peval.test: Remove uses of GLIL.

diff --git a/test-suite/tests/cse.test b/test-suite/tests/cse.test
index e60fdf3..25e6626 100644 (file)
--- a/test-suite/tests/cse.test
+++ b/test-suite/tests/cse.test
@@ -28,7 +28,6 @@
   #:use-module (language tree-il fix-letrec)
   #:use-module (language tree-il cse)
   #:use-module (language tree-il peval)
-  #:use-module (language glil)
   #:use-module (srfi srfi-13))
 
 (define-syntax pass-if-cse
@@ -292,8 +291,8 @@
   (pass-if "http://bugs.gnu.org/12883"
     ;; In 2.0.6, compiling this code would trigger an out-of-bounds
     ;; vlist access in CSE's traversal of its "database".
-    (glil-program?
-     (compile '(define (proc v)
+    (procedure?
+     (compile '(lambda (v)
                  (let ((failure (lambda () (bail-out 'match))))
                    (if (and (pair? v)
                             (null? (cdr v)))
@@ -303,5 +302,4 @@
                              #t
                              (failure)))
                        (failure))))
-              #:from 'scheme
-              #:to 'glil))))
+              #:from 'scheme))))

diff --git a/test-suite/tests/peval.test b/test-suite/tests/peval.test
index 730808b..cb17652 100644 (file)
--- a/test-suite/tests/peval.test
+++ b/test-suite/tests/peval.test
@@ -24,7 +24,6 @@
   #:use-module (system base message)
   #:use-module (language tree-il)
   #:use-module (language tree-il primitives)
-  #:use-module (language glil)
   #:use-module (rnrs bytevectors) ;; for the bytevector primitives
   #:use-module (srfi srfi-13))