From aa05fca37f7d7b3b3639e4989c2f3415015b4ed9 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 16 Mar 2017 15:49:07 -0700
Subject: [PATCH] infix: add a test for nested local scopes.

---
 extra/infix/infix-tests.factor | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/extra/infix/infix-tests.factor b/extra/infix/infix-tests.factor
index bf92986d8f..10440b6726 100644
--- a/extra/infix/infix-tests.factor
+++ b/extra/infix/infix-tests.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2009 Philipp Brüschweiler
 ! See http://factorcode.org/license.txt for BSD license.
 USING: infix infix.private kernel locals math math.functions
-tools.test ;
+sequences tools.test ;
 IN: infix.tests
 
 { 0 } [ [infix 0 infix] ] unit-test
@@ -54,3 +54,11 @@ IN: infix.tests
 INFIX:: foo ( x y -- z ) x**2-abs(y) ;
 
 { 194 } [ 15 31 foo ] unit-test
+
+{ "foobar" } [
+    [let "foo" :> s
+        [let "bar" :> t
+            [infix append(s, t) infix]
+        ]
+    ]
+] unit-test