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.

diff --git a/guile/step5_tco.scm b/guile/step5_tco.scm
index 909aa8b..67a2963 100644 (file)
--- a/guile/step5_tco.scm
+++ b/guile/step5_tco.scm
@@ -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)

diff --git a/guile/tests/step5_tco.mal b/guile/tests/step5_tco.mal
deleted file mode 100644 (file)
index d20df25..0000000
--- a/guile/tests/step5_tco.mal
+++ /dev/null
@@ -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