From 516073cbd07ab961b5aea7290f1574cbedf8d3d2 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 7 Jun 2016 09:57:53 -0700 Subject: [PATCH] math.rectangles: no prettyprint. --- libs/math/rectangles/prettyprint/authors.txt | 1 - libs/math/rectangles/prettyprint/prettyprint.factor | 11 ----------- libs/math/rectangles/rectangles-tests.factor | 3 --- libs/math/rectangles/rectangles.factor | 4 ---- 4 files changed, 19 deletions(-) delete mode 100644 libs/math/rectangles/prettyprint/authors.txt delete mode 100644 libs/math/rectangles/prettyprint/prettyprint.factor diff --git a/libs/math/rectangles/prettyprint/authors.txt b/libs/math/rectangles/prettyprint/authors.txt deleted file mode 100644 index d4f5d6b3ae..0000000000 --- a/libs/math/rectangles/prettyprint/authors.txt +++ /dev/null @@ -1 +0,0 @@ -Slava Pestov \ No newline at end of file diff --git a/libs/math/rectangles/prettyprint/prettyprint.factor b/libs/math/rectangles/prettyprint/prettyprint.factor deleted file mode 100644 index 30b93dd5a1..0000000000 --- a/libs/math/rectangles/prettyprint/prettyprint.factor +++ /dev/null @@ -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 ; diff --git a/libs/math/rectangles/rectangles-tests.factor b/libs/math/rectangles/rectangles-tests.factor index d7c6c09e93..b1464d27a6 100644 --- a/libs/math/rectangles/rectangles-tests.factor +++ b/libs/math/rectangles/rectangles-tests.factor @@ -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 diff --git a/libs/math/rectangles/rectangles.factor b/libs/math/rectangles/rectangles.factor index fa6e5504d9..e36c35f003 100644 --- a/libs/math/rectangles/rectangles.factor +++ b/libs/math/rectangles/rectangles.factor @@ -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