From 05779654ec10d48a7901b87c8d88ca2c90a6aa4b Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 2 Sep 2008 01:53:55 -0500 Subject: [PATCH] new accessors --- basis/stack-checker/stack-checker-tests.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/stack-checker/stack-checker-tests.factor b/basis/stack-checker/stack-checker-tests.factor index dc049ee1a4..9bf8ed62f0 100755 --- a/basis/stack-checker/stack-checker-tests.factor +++ b/basis/stack-checker/stack-checker-tests.factor @@ -148,7 +148,7 @@ M: fixnum potential-hang dup [ potential-hang ] when ; TUPLE: funny-cons car cdr ; GENERIC: iterate ( obj -- ) -M: funny-cons iterate funny-cons-cdr iterate ; +M: funny-cons iterate cdr>> iterate ; M: f iterate drop ; M: real iterate drop ;