From 52a03bbd0276cf3c0578f845cc27d1e459f67746 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 4 Apr 2023 13:58:48 -0700
Subject: [PATCH] memoize: add another test case, only ( -- ) was broken

---
 core/memoize/memoize-tests.factor | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/core/memoize/memoize-tests.factor b/core/memoize/memoize-tests.factor
index 8125f1237c..809cae2794 100644
--- a/core/memoize/memoize-tests.factor
+++ b/core/memoize/memoize-tests.factor
@@ -38,7 +38,7 @@ SYMBOL: foo-counter
 
 MEMO: foo ( -- ) foo-counter counter drop ;
 
-[ 0 1 1 1 ] [
+{ 0 1 1 1 } [
     foo-counter get-global
     foo
     foo-counter get-global
@@ -47,3 +47,15 @@ MEMO: foo ( -- ) foo-counter counter drop ;
     foo
     foo-counter get-global
 ] unit-test
+
+SYMBOL: bar-counter
+0 bar-counter set-global
+
+MEMO: bar ( -- x ) bar-counter counter ;
+
+{ 0 1 1 1 } [
+    bar-counter get-global
+    bar
+    bar
+    bar
+] unit-test
-- 
2.34.1