diff options
Diffstat (limited to 'test-suite/tests')
-rw-r--r-- | test-suite/tests/srfi-18.test | 9 | ||||
-rw-r--r-- | test-suite/tests/tree-il.test | 8 |
2 files changed, 12 insertions, 5 deletions
diff --git a/test-suite/tests/srfi-18.test b/test-suite/tests/srfi-18.test index fa309e6ce..3c7090643 100644 --- a/test-suite/tests/srfi-18.test +++ b/test-suite/tests/srfi-18.test @@ -21,8 +21,13 @@ (define-module (test-suite test-srfi-18) #:use-module (test-suite lib)) -(and (provided? 'threads) - (use-modules (srfi srfi-18)) +;; two expressions so that the srfi-18 import is in effect for expansion +;; of the rest +(if (provided? 'threads) + (use-modules (srfi srfi-18))) + +(and + (provided? 'threads) (with-test-prefix "current-thread" diff --git a/test-suite/tests/tree-il.test b/test-suite/tests/tree-il.test index 873051f03..724ea7960 100644 --- a/test-suite/tests/tree-il.test +++ b/test-suite/tests/tree-il.test @@ -68,10 +68,12 @@ (assert-tree-il->glil (apply (toplevel foo) (const 1)) (program 0 0 0 0 () (toplevel ref foo) (const 1) (call goto/args 1))) - (assert-tree-il->glil + (assert-tree-il->glil/pmatch (begin (apply (toplevel foo) (const 1)) (void)) - (program 0 0 0 0 () (toplevel ref foo) (const 1) (call call 1) - (call drop 1) (void) (call return 1))) + (program 0 0 0 0 () (toplevel ref foo) (const 1) (mv-call 1 ,l1) + (const 1) (label ,l2) (mv-bind () #f) (unbind) + (void) (call return 1)) + (eq? l1 l2)) (assert-tree-il->glil (apply (toplevel foo) (apply (toplevel bar))) (program 0 0 0 0 () (toplevel ref foo) (toplevel ref bar) (call call 0) |