diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-06-16 06:40:49 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-06-16 06:40:49 -0700 |
| commit | d212fc6284a6b7858da4570ef4d22cb88eec747a (patch) | |
| tree | ce7c6d4eb2b2bb51ba8138d5a2ae0a64653d5738 /tests | |
| parent | 39317da1ce84bb30b103fc580219cb4e509da281 (diff) | |
| download | txr-d212fc6284a6b7858da4570ef4d22cb88eec747a.tar.gz txr-d212fc6284a6b7858da4570ef4d22cb88eec747a.tar.bz2 txr-d212fc6284a6b7858da4570ef4d22cb88eec747a.zip | |
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.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/012/aseq.tl | 2 |
1 files changed, 1 insertions, 1 deletions
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)))) |