From 56a7d159b2dd061ac4ebfe246eda11894d997a95 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 7 Apr 2013 12:55:29 -0700
Subject: [PATCH] biassocs: implement keys/values.

---
 basis/biassocs/biassocs.factor | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/basis/biassocs/biassocs.factor b/basis/biassocs/biassocs.factor
index ab3157d400..590449d77c 100644
--- 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 ;