diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2015-02-07 07:38:02 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2015-02-07 07:38:02 -0800 |
| commit | 9eecb672352ec0d5038f35cb24c0ccad950a9507 (patch) | |
| tree | c7aa031d39edba7c51e3d6a93f8654b77348db7e /tests/011/macros-1.txr | |
| parent | 61302673d5870dc3eae32ba0e1c60d2d9f6aef21 (diff) | |
| download | txr-9eecb672352ec0d5038f35cb24c0ccad950a9507.tar.gz txr-9eecb672352ec0d5038f35cb24c0ccad950a9507.tar.bz2 txr-9eecb672352ec0d5038f35cb24c0ccad950a9507.zip | |
* tests/011/macros-1.txr: Add test for lexical function
shadowing symbol macro.
* tests/011/macros-1.expected: Updated.
Diffstat (limited to 'tests/011/macros-1.txr')
| -rw-r--r-- | tests/011/macros-1.txr | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/011/macros-1.txr b/tests/011/macros-1.txr index 35b9d472..946cbf2e 100644 --- a/tests/011/macros-1.txr +++ b/tests/011/macros-1.txr @@ -13,6 +13,12 @@ (list (rem-num (foo)) (rem-num x))))) (prinl + (let ((x 0) (y 1)) + (symacrolet ((a x) (b y)) + (flet ((x (. args) [apply list args])) + [x y])))) + + (prinl (let ((x 0)) (symacrolet ((a (inc x))) (list |