Merge branch 'run-tests-bad-pattern'

2017-10-05 15:08:25 +01:00 · 2017-10-05 15:08:25 +01:00 · 817fd9a06c
commit 817fd9a06c
parent 5b5aa971a0 3eadbaf433
1 changed files with 2 additions and 1 deletions
--- a/functional-tests/functional-tests.scm
+++ b/functional-tests/functional-tests.scm
@ -93,7 +93,8 @@
      (fmt #t (cat (fn keys) nl))
      (flush))

-    (for-each describe (cons '() (reverse (cdr (reverse keys)))) keys))
+    (unless (null? keys)
+        (for-each describe (cons '() (reverse (cdr (reverse keys)))) keys)))

  (define (describe-scenarios keys)
    (fmt-scenarios keys