diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2015-07-24 18:23:51 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2015-07-24 18:23:51 -0700 |
| commit | 572f1fcfd4a2399395c2ce37d892f53117b84222 (patch) | |
| tree | 1d070e483a8a84dce7616a74ebb88b607eb5b8c3 | |
| parent | 5243b933a609af037a5e39f76ea7d61b07bd1343 (diff) | |
| download | txr-572f1fcfd4a2399395c2ce37d892f53117b84222.tar.gz txr-572f1fcfd4a2399395c2ce37d892f53117b84222.tar.bz2 txr-572f1fcfd4a2399395c2ce37d892f53117b84222.zip | |
* tests/012/ifa.tl: New test for it being bound to a place.
| -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)) |