biassocs: implement keys/values.

2013-04-07 12:55:29 -07:00 · 2013-04-07 12:55:29 -07:00 · 0a49cf7dac
parent 059b87bbfa
commit 0a49cf7dac
1 changed files with 5 additions and 2 deletions
--- a/basis/biassocs/biassocs.factor
+++ b/basis/biassocs/biassocs.factor
@ -31,8 +31,11 @@ M: no-biassoc-deletion summary
 M: biassoc delete-at
    no-biassoc-deletion ;

-M: biassoc >alist
-    from>> >alist ;
+M: biassoc >alist from>> >alist ;
+
+M: biassoc keys from>> keys ;
+
+M: biassoc values from>> values ;

 M: biassoc clear-assoc
    [ from>> clear-assoc ] [ to>> clear-assoc ] bi ;