fix a bug of test-values and unlock the test cases that use test-values

2014-07-21 22:58:38 +09:00
parent 12fb80b857
commit 341e4048eb
2 changed files with 10 additions and 12 deletions
@@ -69,9 +69,7 @@
  (define-syntax test-values
    (syntax-rules ()
      ((_ expect expr)
-       (test-values #f expect expr))
-      ((_ name expect expr)
-       (test name (call-with-values (lambda () expect) (lambda results results))
+       (test (call-with-values (lambda () expect) (lambda results results))
             (call-with-values (lambda () expr) (lambda results results))))))