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:
parent
77fd710cab
commit
075d9c651c
@ -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)
|
||||
|
@ -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
|
Loading…
Reference in New Issue
Block a user