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 }
|
||||
} rect-containing
|
||||
] 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<< ]
|
||||
[ [ dim>> ] dip dim<< ]
|
||||
2bi ; inline
|
||||
|
||||
use: vocabs.loader
|
||||
|
||||
{ "math.rectangles" "prettyprint" } "math.rectangles.prettyprint" require-when
|
||||
|
|
Loading…
Reference in New Issue