locals: simplify point-free using multi-def.

[factor.git] / core / locals / locals-tests.factor

diff --git a/core/locals/locals-tests.factor b/core/locals/locals-tests.factor
index 34723e91e931fb461b0a47dffa2009298a9fe600..3f9b6bf561c47794c6259c062031b8d23d4b0ab2 100644 (file)
--- a/core/locals/locals-tests.factor
+++ b/core/locals/locals-tests.factor
@@ -458,6 +458,10 @@ M:: integer lambda-method-forget-test ( a -- b ) a ;
     [| | 0 '[ [let 10 :> A A _ + ] ] call ] call
 ] unit-test
 
+{ { 1 2 3 4 } { 2 2 8 4 } } [
+    1 2 3 4 [| a! b c! d | { a b c d } a 1 + a! c 5 + c! { a b c d } ] call
+] unit-test
+
 ! littledan found this problem
 { "bar" } [ [let [let "bar" :> foo foo ] :> a a ] ] unit-test
 { 10 } [ [let 10 :> a [let a :> b b ] ] ] unit-test