factor: ?if to ?if-old

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

diff --git a/core/memoize/memoize.factor b/core/memoize/memoize.factor
index 2966f5fe437a54ff2a086ccb0267ad1abc84c519..5eccc9d7dcb4528b1ae10af046bf171d6b1966f4 100644 (file)
--- a/core/memoize/memoize.factor
+++ b/core/memoize/memoize.factor
@@ -45,7 +45,7 @@ IN: memoize
     out>> [
         packer '[
             _ dup first-unsafe
-            [ ] [ @ @ [ 0 rot set-nth-unsafe ] keep ] ?if
+            [ ] [ @ @ [ 0 rot set-nth-unsafe ] keep ] ?if-old
         ]
     ] keep unpacker compose ;