From d212fc6284a6b7858da4570ef4d22cb88eec747a Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 16 Jun 2017 06:40:49 -0700 Subject: Support ref, refset on structs via lambda, lambda-set. * lib.c (ref, refset): Check for lambda and lambda-set, respectively, and use it. * txr.1: Documented. * tests/012/aseq.tl (add lambda): Fix previously unused broken method which now causes test to go into infinite recursion. --- tests/012/aseq.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tests/012/aseq.tl') diff --git a/tests/012/aseq.tl b/tests/012/aseq.tl index 7901c4ab..fc6cf76b 100644 --- a/tests/012/aseq.tl +++ b/tests/012/aseq.tl @@ -5,7 +5,7 @@ (:method cdr (me) (if (cdr me.list) (new (add me.n (cdr me.list))))) (:method car (me) (+ me.n (car me.list))) (:method nullify (me) (if me.list me)) - (:method lambda (me i) (ref me i))) + (:method lambda (me i) (+ me.n (ref me.list i)))) (defvarl o (new (add 3 (range 10 100 10)))) -- cgit v1.2.3