fix for (apply values '(1))

[bpt/guile.git] / testsuite / t-values.scm

diff --git a/testsuite/t-values.scm b/testsuite/t-values.scm
index 565f64e..f4c0516 100644 (file)
--- a/testsuite/t-values.scm
+++ b/testsuite/t-values.scm
@@ -5,5 +5,9 @@
       ;; the start-stack forces a bounce through the interpreter
       (call-with-values
           (lambda () (start-stack 'foo (values 1 2)))
+        list)
+
+      (call-with-values
+          (lambda () (apply values '(1)))
         list))