math.rectangles: no prettyprint.
parent
1952db54bc
commit
516073cbd0
|
@ -1 +0,0 @@
|
||||||
Slava Pestov
|
|
|
@ -1,11 +0,0 @@
|
||||||
! Copyright (C) 2009, 2010 Slava Pestov.
|
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
|
||||||
USING: accessors math.rectangles kernel prettyprint.custom prettyprint.backend ;
|
|
||||||
in: math.rectangles.prettyprint
|
|
||||||
|
|
||||||
M: rect pprint*
|
|
||||||
[
|
|
||||||
\ RECT: [
|
|
||||||
[ loc>> ] [ dim>> ] bi [ pprint* ] bi@
|
|
||||||
] pprint-prefix
|
|
||||||
] check-recursion ;
|
|
|
@ -41,6 +41,3 @@ in: math.rectangles.tests
|
||||||
{ 30 30 }
|
{ 30 30 }
|
||||||
} rect-containing
|
} rect-containing
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
! Prettyprint for rect{ didn't do nesting check properly
|
|
||||||
{ } [ [ rect{ { 1 2 } { 3 4 } } dup >>dim . ] with-string-writer drop ] unit-test
|
|
||||||
|
|
|
@ -66,7 +66,3 @@ M: rect contains-point?
|
||||||
[ [ loc>> ] dip loc<< ]
|
[ [ loc>> ] dip loc<< ]
|
||||||
[ [ dim>> ] dip dim<< ]
|
[ [ dim>> ] dip dim<< ]
|
||||||
2bi ; inline
|
2bi ; inline
|
||||||
|
|
||||||
use: vocabs.loader
|
|
||||||
|
|
||||||
{ "math.rectangles" "prettyprint" } "math.rectangles.prettyprint" require-when
|
|
||||||
|
|
Loading…
Reference in New Issue