memoize: fix memoization of no-arg words

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

diff --git a/core/memoize/memoize-tests.factor b/core/memoize/memoize-tests.factor
index f67c7ac28478a2978f959ea6aa9459f23b5d4126..8125f1237c295ef1f38a8f55cf75f5c887955b75 100644 (file)
--- a/core/memoize/memoize-tests.factor
+++ b/core/memoize/memoize-tests.factor
@@ -25,7 +25,6 @@ MEMO: see-test ( a -- b ) reverse ;
 { "USING: sequences ;\nIN: memoize.tests\nMEMO: see-test ( a -- b ) reverse ;\n" }
 [ [ \ see-test see ] with-string-writer ]
 unit-test
-
 { } [ "IN: memoize.tests : fib ( -- ) ;" eval( -- ) ] unit-test
 
 { "IN: memoize.tests\n: fib ( -- ) ;\n" } [ [ \ fib see ] with-string-writer ] unit-test
@@ -33,3 +32,18 @@ unit-test
 [ sq ] ( a -- b ) memoize-quot "q" set
 
 { 9 } [ 3 "q" get call ] unit-test
+
+SYMBOL: foo-counter
+0 foo-counter set-global
+
+MEMO: foo ( -- ) foo-counter counter drop ;
+
+[ 0 1 1 1 ] [
+    foo-counter get-global
+    foo
+    foo-counter get-global
+    foo
+    foo-counter get-global
+    foo
+    foo-counter get-global
+] unit-test