diff options
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | tests/012/ifa.tl | 5 |
2 files changed, 9 insertions, 0 deletions
@@ -1,5 +1,9 @@ 2015-07-24 Kaz Kylheku <kaz@kylheku.com> + * tests/012/ifa.tl: New test for it being bound to a place. + +2015-07-24 Kaz Kylheku <kaz@kylheku.com> + Bugfix: place-form-p must expand place macros. * share/txr/stdlib/place.tl (place-form-p): Take diff --git a/tests/012/ifa.tl b/tests/012/ifa.tl index 64fc6793..214f752b 100644 --- a/tests/012/ifa.tl +++ b/tests/012/ifa.tl @@ -37,3 +37,8 @@ ((oddp (+ 2 x)) (list it)))) (7)) +(test (let ((l (list 1 2 3))) + (ifa (evenp (second l)) + (inc it)) + l) + (1 3 3)) |