From 632ee276e10d5c58d845b5604eb8529da4e099c0 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 31 Oct 2014 01:14:31 -0700 Subject: [PATCH] core: Remove trailing whitespace. --- core/classes/algebra/algebra.factor | 2 +- core/hashtables/hashtables.factor | 2 +- core/io/encodings/utf16/utf16.factor | 2 +- core/io/encodings/utf8/utf8.factor | 2 +- core/math/parser/parser.factor | 4 ++-- core/slots/slots.factor | 2 +- 6 files changed, 7 insertions(+), 7 deletions(-) diff --git a/core/classes/algebra/algebra.factor b/core/classes/algebra/algebra.factor index eb142165a0..074cf1b9e3 100644 --- a/core/classes/algebra/algebra.factor +++ b/core/classes/algebra/algebra.factor @@ -162,7 +162,7 @@ PREDICATE: nontrivial-anonymous-intersection < anonymous-intersection { [ dup anonymous-union? ] [ members>> [ class-not normalize-class ] map - + ] } { [ dup anonymous-intersection? ] [ participants>> diff --git a/core/hashtables/hashtables.factor b/core/hashtables/hashtables.factor index 648f3da537..a8c8fc52cb 100644 --- a/core/hashtables/hashtables.factor +++ b/core/hashtables/hashtables.factor @@ -59,7 +59,7 @@ TUPLE: hashtable ! ! if empty? is f: ! - we want to store into i -! +! ! if empty? is t: ! - we want to store into j if j is not f ! - otherwise we want to store into i diff --git a/core/io/encodings/utf16/utf16.factor b/core/io/encodings/utf16/utf16.factor index ccdac29173..0660ddfd77 100644 --- a/core/io/encodings/utf16/utf16.factor +++ b/core/io/encodings/utf16/utf16.factor @@ -40,7 +40,7 @@ ERROR: missing-bom ; [ 0b11 bitand quad-be ] [ drop ignore ] if ] [ double-be ] if ; - + M: utf16be decode-char drop dup stream-read1 dup [ begin-utf16be ] when nip ; diff --git a/core/io/encodings/utf8/utf8.factor b/core/io/encodings/utf8/utf8.factor index c17de5b259..28ce4899f0 100644 --- a/core/io/encodings/utf8/utf8.factor +++ b/core/io/encodings/utf8/utf8.factor @@ -8,7 +8,7 @@ IN: io.encodings.utf8 SINGLETON: utf8 -boolean ; GENERIC# reader-quot 1 ( class slot-spec -- quot ) -M: object reader-quot +M: object reader-quot nip [ dup offset>> , \ slot ,