Fix infinite recursion

2007-11-26 18:20:10 -05:00 · 2007-11-26 18:20:10 -05:00 · 6b3db4f05d
parent a9333780a0
commit 6b3db4f05d
1 changed files with 2 additions and 0 deletions
--- a/extra/xml/data/data.factor
+++ b/extra/xml/data/data.factor
@ -65,6 +65,8 @@ M: attrs set-at

 M: attrs assoc-size length ;
 M: attrs new-assoc drop V{ } new <attrs> ;
+M: attrs assoc-find >r delegate r> assoc-find ;
+M: attrs >alist delegate >alist ;

 : >attrs ( assoc -- attrs )
    V{ } assoc-clone-like