vocabs.loader: use ?if

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

diff --git a/core/memoize/memoize.factor b/core/memoize/memoize.factor
index 5eccc9d7dcb4528b1ae10af046bf171d6b1966f4..d5a09e3ab8c9479d8d97578d50d3e90f229965a1 100644 (file)
--- a/core/memoize/memoize.factor
+++ b/core/memoize/memoize.factor
@@ -44,8 +44,9 @@ IN: memoize
 : make/0 ( table quot effect -- quot )
     out>> [
         packer '[
-            _ dup first-unsafe
-            [ ] [ @ @ [ 0 rot set-nth-unsafe ] keep ] ?if-old
+            _
+            [ first-unsafe ]
+            [ @ @ [ 0 rot set-nth-unsafe ] keep ] ?unless
         ]
     ] keep unpacker compose ;