summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/012/stack.tl15
1 files changed, 9 insertions, 6 deletions
diff --git a/tests/012/stack.tl b/tests/012/stack.tl
index 879d3d27..9a7534bb 100644
--- a/tests/012/stack.tl
+++ b/tests/012/stack.tl
@@ -1,5 +1,7 @@
(load "../common")
+(defvar stack-limited (set-stack-limit 32768))
+
(defun recur () (recur))
(defmacro so (expr)
@@ -8,12 +10,13 @@
(test (so (recur)) :so)
-(test (let ((pid (fork)))
- (cond
- ((zerop pid) (set-stack-limit 0) (recur))
- (t (let ((status (wait pid)))
- (w-ifsignaled status)))))
- t)
+(if stack-limited
+ (test (let ((pid (fork)))
+ (cond
+ ((zerop pid) (set-stack-limit 0) (recur))
+ (t (let ((status (wait pid)))
+ (w-ifsignaled status)))))
+ t))
(defmacro infexp ()
^(foo (infexp)))