diff options
-rw-r--r-- | ChangeLog | 6 | ||||
-rw-r--r-- | tests/008/filtenv.expected | 2 | ||||
-rw-r--r-- | tests/008/filtenv.txr | 5 |
3 files changed, 13 insertions, 0 deletions
@@ -1,5 +1,11 @@ 2012-02-25 Kaz Kylheku <kaz@kylheku.com> + * tests/008/filtenv.expected: New file. + + * tests/008/filtenv.txr: New file. + +2012-02-25 Kaz Kylheku <kaz@kylheku.com> + Bug #34652 * match.c (do_txeval): Establish a dynamic env frame around diff --git a/tests/008/filtenv.expected b/tests/008/filtenv.expected new file mode 100644 index 00000000..7d74be84 --- /dev/null +++ b/tests/008/filtenv.expected @@ -0,0 +1,2 @@ +a="x" +b="x" diff --git a/tests/008/filtenv.txr b/tests/008/filtenv.txr new file mode 100644 index 00000000..062e3a7a --- /dev/null +++ b/tests/008/filtenv.txr @@ -0,0 +1,5 @@ +@(bind a "x") +@(define f (in out)) +@(bind out a) +@(end) +@(bind b `@{a :filter (:fun f)}`) |