From 7dbe6c177e040cc6a4d842ec457ca02c4e343b5b Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 29 Mar 2016 13:14:24 -0700
Subject: [PATCH] vocabs: words-named should't f suffix.

---
 core/vocabs/vocabs.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/vocabs/vocabs.factor b/core/vocabs/vocabs.factor
index 29530f8996..b47053071f 100644
--- a/core/vocabs/vocabs.factor
+++ b/core/vocabs/vocabs.factor
@@ -104,7 +104,7 @@ ERROR: no-vocab name ;
     [ values [ vocab-words-assoc at ] with map sift ]
     [
         [ ":" split1 swap ] dip at
-        [ vocab-words-assoc at suffix ] [ drop ] if*
+        [ vocab-words-assoc at [ suffix ] when* ] [ drop ] if*
     ] 2bi ;
 
 : child-vocab? ( prefix name -- ? )