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