1
1
mirror of https://github.com/kanaka/mal.git synced 2024-10-26 14:22:25 +03:00

guile: disable non-recursive test.

The non-recursive TCO test case specific to guile causes regress mode
to fail when using stepA to regress step5 because stepA does not have
the artificial stack size restriction contained in only step5. There
is no reason to artificially restrict implementation call stack in
order to pass the non-TCO calls so just remove that guile specific
test case.
This commit is contained in:
Joel Martin 2019-07-24 23:41:10 -05:00
parent 77fd710cab
commit 075d9c651c
2 changed files with 1 additions and 21 deletions

View File

@ -130,9 +130,4 @@
(EVAL-string "(def! not (fn* (x) (if x false true)))")
;; NOTE: we have to reduce stack size to pass step5 test
((@ (system vm vm) call-with-stack-overflow-handler)
1024
(lambda () (REPL))
(lambda k (throw 'mal-error "stack overflow")))
(REPL)

View File

@ -1,15 +0,0 @@
;; Test recursive non-tail call function
(def! sum-to (fn* (n) (if (= n 0) 0 (+ n (sum-to (- n 1))))))
(sum-to 10)
;=>55
;;; no try* yet, so test completion of side-effects
(def! res1 nil)
;=>nil
;;; For implementations without their own TCO this should fail and
;;; leave res1 unchanged
(def! res1 (sum-to 10000))
res1
;=>nil