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