Add failing unit test

diff --git a/basis/locals/locals-tests.factor b/basis/locals/locals-tests.factor
index ca6697be1cdd5198956d878c8d574b185f16b187..04e077fc4f10c54521d988940a0879171f9ed9a7 100644 (file)
--- a/basis/locals/locals-tests.factor
+++ b/basis/locals/locals-tests.factor
@@ -388,6 +388,8 @@ M:: integer lambda-method-forget-test ( a -- b ) ;
 
 [ ] [ [ { integer lambda-method-forget-test } forget ] with-compilation-unit ] unit-test
 
+[ { [ 10 ] } ] [ 10 [| A | { [ A ] } ] call ] unit-test
+
 ! :: wlet-&&-test ( a -- ? )
 !     [wlet | is-integer? [ a integer? ]
 !             is-even? [ a even? ]