diff options
| -rw-r--r-- | tests/008/filtenv.expected | 2 | ||||
| -rw-r--r-- | tests/008/filtenv.txr | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/tests/008/filtenv.expected b/tests/008/filtenv.expected index 7d74be84..1ae1c2fd 100644 --- a/tests/008/filtenv.expected +++ b/tests/008/filtenv.expected @@ -1,2 +1,2 @@ a="x" -b="x" +b="X" diff --git a/tests/008/filtenv.txr b/tests/008/filtenv.txr index 062e3a7a..4874607e 100644 --- a/tests/008/filtenv.txr +++ b/tests/008/filtenv.txr @@ -1,5 +1,5 @@ @(bind a "x") @(define f (in out)) -@(bind out a) +@(bind out @(upcase-str a)) @(end) @(bind b `@{a :filter (:fun f)}`) |