steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/checksums/crc16/crc16.factor
View File

@ -37,4 +37,4 @@ M: crc16 checksum-bytes
M: crc16 checksum-lines M: crc16 checksum-lines
init-crc16 init-crc16
[ [ (crc16) ] each char: \n (crc16) ] each [ [ (crc16) ] each char: \n (crc16) ] each
finish-crc16 ; inline finish-crc16 ; inline

2
extra/modern/modern.factor
View File

@ -323,4 +323,4 @@ ERROR: mismatched-terminator n string slice ;
: lex-tests ( -- assoc ) all-tests-paths lex-paths ; : lex-tests ( -- assoc ) all-tests-paths lex-paths ;
: lex-all ( -- assoc ) : lex-all ( -- assoc )
lex-roots lex-docs lex-tests 3append ; lex-roots lex-docs lex-tests 3append ;

2
extra/modern/out/out.factor
View File

@ -70,4 +70,4 @@ M: array write-literal [ write-literal ] each ;
] map 1array ] map 1array
{ "<VOCAB-ROOT:" "factorcode-core" "https://factorcode.org/git/factor.git" "core/" } { "<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 ;

1
extra/modern/slices/slices.factor
View File

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

1
extra/stream/extras/extras.factor
View File

@ -15,4 +15,3 @@ IN: stream.extras
: write1-flush ( str -- ) output-stream get stream-write1-flush ; inline : write1-flush ( str -- ) output-stream get stream-write1-flush ; inline
: write-flush ( str -- ) output-stream get stream-write-flush ; inline : write-flush ( str -- ) output-stream get stream-write-flush ; inline
: print-flush ( str -- ) output-stream get stream-print-flush ; inline : print-flush ( str -- ) output-stream get stream-print-flush ; inline

1
extra/web-services/github/github.factor
View File

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