steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

vlists: splitting prettyprint dependency out.

clean-linux-x86-64
John Benediktsson 2019-09-08 15:59:04 -07:00
parent e66c777188
commit a8c73064d8
2 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/vlists/prettyprint/prettyprint.factor Normal file
View File

@ -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 ;

12
basis/vlists/vlists.factor
View File

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