modern: More whitespace cleanup and rewrite all files except functors!

modern-harvey2
Doug Coleman 2017-08-27 14:06:25 -05:00
parent e4f64e80bf
commit fb6defd60f
6 changed files with 3 additions and 6 deletions

View File

@ -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

View File

@ -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 ;
lex-roots lex-docs lex-tests 3append ;

View File

@ -70,4 +70,4 @@ M: array write-literal [ write-literal ] each ;
] map 1array
{ "<VOCAB-ROOT:" "factorcode-core" "https://factorcode.org/git/factor.git" "core/" }
{ ";VOCAB-ROOT>" } surround "resource:core-parsed.factor" utf8 [ ... ] with-file-writer ;
{ ";VOCAB-ROOT>" } surround "resource:core-parsed.factor" utf8 [ ... ] with-file-writer ;

View File

@ -218,4 +218,3 @@ ERROR: subseq-expected-but-got-eof n string expected ;
dup length 1 = [
-1 modify-to [ 1 - ] 2dip
] unless ;

View File

@ -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

View File

@ -30,4 +30,3 @@ SYMBOL: github-token
github-username get
github-token get
sync-organization-with-credentials ;