vlists: splitting prettyprint dependency out.

diff --git a/basis/vlists/prettyprint/prettyprint.factor b/basis/vlists/prettyprint/prettyprint.factor
new file mode 100644 (file)
index 0000000..76e3737
--- /dev/null
+++ b/basis/vlists/prettyprint/prettyprint.factor
@@ -0,0 +1,10 @@
+USING: assocs kernel prettyprint.custom vlists ;
+IN: vlists.prettyprint
+
+M: vlist pprint-delims drop \ VL{ \ } ;
+M: vlist >pprint-sequence ;
+M: vlist pprint* pprint-object ;
+
+M: valist pprint-delims drop \ VA{ \ } ;
+M: valist >pprint-sequence >alist ;
+M: valist pprint* pprint-object ;

diff --git a/basis/vlists/vlists.factor b/basis/vlists/vlists.factor
index fc680f4a9c7ef2ad9beafb56dd76507fab35a80d..62d71c32c97cab2e2d828d74c953ead2241cd9cc 100644 (file)
--- a/basis/vlists/vlists.factor
+++ b/basis/vlists/vlists.factor
@@ -1,8 +1,8 @@
 ! Copyright (C) 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors assocs grouping kernel math parser
-persistent.assocs persistent.sequences prettyprint.custom
-sequences sequences.private vectors ;
+persistent.assocs persistent.sequences sequences
+sequences.private vectors vocabs.loader ;
 IN: vlists
 
 TUPLE: vlist
@@ -52,10 +52,6 @@ INSTANCE: vlist immutable-sequence
 
 SYNTAX: VL{ \ } [ >vlist ] parse-literal ;
 
-M: vlist pprint-delims drop \ VL{ \ } ;
-M: vlist >pprint-sequence ;
-M: vlist pprint* pprint-object ;
-
 TUPLE: valist { vlist vlist read-only } ;
 
 : <valist> ( -- valist ) <vlist> valist boa ; inline
@@ -90,6 +86,4 @@ INSTANCE: valist assoc
 
 SYNTAX: VA{ \ } [ >valist ] parse-literal ;
 
-M: valist pprint-delims drop \ VA{ \ } ;
-M: valist >pprint-sequence >alist ;
-M: valist pprint* pprint-object ;
+{ "vlists" "prettyprint" } "vlists.prettyprint" require-when