Literal hashtables now cross-referenced

2008-10-01 03:12:35 -05:00 · 2008-10-01 03:12:35 -05:00 · 8cb3c1eb5e
parent ec95a0db63
commit 8cb3c1eb5e
1 changed files with 2 additions and 0 deletions
--- a/core/words/words.factor
+++ b/core/words/words.factor
@ -87,6 +87,8 @@ M: word (quot-uses) over crossref? [ conjoin ] [ 2drop ] if ;

 M: array (quot-uses) seq-uses ;

+M: hashtable (quot-uses) >r >alist r> seq-uses ;
+
 M: callable (quot-uses) seq-uses ;

 M: wrapper (quot-uses) >r wrapped>> r> (quot-uses) ;