diff --git a/guile/step5_tco.scm b/guile/step5_tco.scm index 909aa8b5..67a29638 100644 --- 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 index d20df25d..00000000 --- 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