From 0d9c7df8e21ce1a8f72919aeea707c2ad6712b00 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 13 Aug 2012 12:04:56 -0700
Subject: [PATCH] memoize: fix invalidate-memoized for 0 args.

---
 basis/memoize/memoize.factor | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/basis/memoize/memoize.factor b/basis/memoize/memoize.factor
index 8750dfdd93..a1d4da62dc 100644
--- a/basis/memoize/memoize.factor
+++ b/basis/memoize/memoize.factor
@@ -91,6 +91,11 @@ M: memoized reset-word
     [ f swap set-first ] [ clear-assoc ] if ;
 
 : invalidate-memoized ( inputs... word -- )
-    [ stack-effect in>> packer call ] [ "memoize" word-prop delete-at ] bi ;
+    [ stack-effect in>> packer call ]
+    [
+        "memoize" word-prop dup sequence?
+        [ f swap set-first ] [ delete-at ] if
+    ]
+    bi ;
 
 \ invalidate-memoized t "no-compile" set-word-prop