From fb6defd60fd0b3bc21535040ca07637e8e0de97e Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 27 Aug 2017 14:06:25 -0500 Subject: [PATCH] modern: More whitespace cleanup and rewrite all files except functors! --- basis/checksums/crc16/crc16.factor | 2 +- extra/modern/modern.factor | 2 +- extra/modern/out/out.factor | 2 +- extra/modern/slices/slices.factor | 1 - extra/stream/extras/extras.factor | 1 - extra/web-services/github/github.factor | 1 - 6 files changed, 3 insertions(+), 6 deletions(-) diff --git a/basis/checksums/crc16/crc16.factor b/basis/checksums/crc16/crc16.factor index 8657e25574..cee408d3b9 100644 --- a/basis/checksums/crc16/crc16.factor +++ b/basis/checksums/crc16/crc16.factor @@ -37,4 +37,4 @@ M: crc16 checksum-bytes M: crc16 checksum-lines init-crc16 [ [ (crc16) ] each char: \n (crc16) ] each - finish-crc16 ; inline + finish-crc16 ; inline diff --git a/extra/modern/modern.factor b/extra/modern/modern.factor index 21ecd8631b..b67efacb54 100644 --- a/extra/modern/modern.factor +++ b/extra/modern/modern.factor @@ -323,4 +323,4 @@ ERROR: mismatched-terminator n string slice ; : lex-tests ( -- assoc ) all-tests-paths lex-paths ; : lex-all ( -- assoc ) - lex-roots lex-docs lex-tests 3append ; \ No newline at end of file + lex-roots lex-docs lex-tests 3append ; diff --git a/extra/modern/out/out.factor b/extra/modern/out/out.factor index eb3db76b0e..33e76e05c6 100644 --- a/extra/modern/out/out.factor +++ b/extra/modern/out/out.factor @@ -70,4 +70,4 @@ M: array write-literal [ write-literal ] each ; ] map 1array { "" } surround "resource:core-parsed.factor" utf8 [ ... ] with-file-writer ; \ No newline at end of file + { ";VOCAB-ROOT>" } surround "resource:core-parsed.factor" utf8 [ ... ] with-file-writer ; diff --git a/extra/modern/slices/slices.factor b/extra/modern/slices/slices.factor index 9967ef094f..2e6210bfa1 100644 --- a/extra/modern/slices/slices.factor +++ b/extra/modern/slices/slices.factor @@ -218,4 +218,3 @@ ERROR: subseq-expected-but-got-eof n string expected ; dup length 1 = [ -1 modify-to [ 1 - ] 2dip ] unless ; - diff --git a/extra/stream/extras/extras.factor b/extra/stream/extras/extras.factor index a6f6b4a6ba..9503c72cf6 100644 --- a/extra/stream/extras/extras.factor +++ b/extra/stream/extras/extras.factor @@ -15,4 +15,3 @@ IN: stream.extras : write1-flush ( str -- ) output-stream get stream-write1-flush ; inline : write-flush ( str -- ) output-stream get stream-write-flush ; inline : print-flush ( str -- ) output-stream get stream-print-flush ; inline - diff --git a/extra/web-services/github/github.factor b/extra/web-services/github/github.factor index 09cfa16485..21d9280eee 100644 --- a/extra/web-services/github/github.factor +++ b/extra/web-services/github/github.factor @@ -30,4 +30,3 @@ SYMBOL: github-token github-username get github-token get sync-organization-with-credentials ; -