biassocs: implement keys/values.

diff --git a/basis/biassocs/biassocs.factor b/basis/biassocs/biassocs.factor
index ab3157d40045ebeb1779d842c8bc79bb455d2fb1..590449d77ca00fa14c293b737aad1520278e9190 100644 (file)
--- 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 ;