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

bit-vectors: splitting prettyprint dependency out.

clean-linux-x86-64
John Benediktsson 2019-09-08 15:58:12 -07:00
parent f4c9e52876
commit e66c777188
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/bit-vectors/bit-vectors.factor
View File

@ -1,8 +1,7 @@
! Copyright (C) 2008, 2009 Slava Pestov. ! Copyright (C) 2008, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays kernel kernel.private math sequences USING: bit-arrays classes.parser growable kernel parser
sequences.private growable bit-arrays prettyprint.custom vectors.functor vocabs.loader ;
parser accessors vectors.functor classes.parser ;
IN: bit-vectors IN: bit-vectors
<< "bit-vector" create-class-in \ bit-array \ <bit-array> define-vector >> << "bit-vector" create-class-in \ bit-array \ <bit-array> define-vector >>
@ -10,6 +9,5 @@ IN: bit-vectors
SYNTAX: ?V{ \ } [ >bit-vector ] parse-literal ; SYNTAX: ?V{ \ } [ >bit-vector ] parse-literal ;
M: bit-vector contract 2drop ; M: bit-vector contract 2drop ;
M: bit-vector >pprint-sequence ;
M: bit-vector pprint-delims drop \ ?V{ \ } ; { "bit-vectors" "prettyprint" } "bit-vectors.prettyprint" require-when
M: bit-vector pprint* pprint-object ;

7
basis/bit-vectors/prettyprint/prettyprint.factor Normal file
View File

@ -0,0 +1,7 @@
USING: bit-vectors kernel prettyprint.custom ;
IN: bit-vectors.prettyprint
M: bit-vector >pprint-sequence ;
M: bit-vector pprint-delims drop \ ?V{ \ } ;
M: bit-vector pprint* pprint-object ;