factor: Fix spacing found by ``all-factor-paths [ ] rewrite-paths``

modern-harvey2
Doug Coleman 2017-12-03 19:23:37 -06:00
parent 650bff4793
commit 8a07105d9d
6 changed files with 4 additions and 6 deletions

View File

@ -19,4 +19,4 @@ ${T}-class lookup-c-type
complex >>boxed-class complex >>boxed-class
drop drop
]] ]]

View File

@ -110,4 +110,3 @@ INSTANCE: ${name} backward-analysis
[ ${name}-outs namespaces:set ] [ ${name}-ins namespaces:set ] bi* ; [ ${name}-outs namespaces:set ] [ ${name}-ins namespaces:set ] bi* ;
]] ]]

View File

@ -120,7 +120,7 @@ ERROR: not-all-unique seq ;
[ '[ _ interpolate>string _ set ] ] { } assoc>map [ ] concat-as ; inline [ '[ _ interpolate>string _ set ] ] { } assoc>map [ ] concat-as ; inline
: create-new-word-in ( string -- word ) : create-new-word-in ( string -- word )
create-word-in dup reset-generic ; create-word-in dup reset-generic ;
: lookup-word-in ( string -- word ) : lookup-word-in ( string -- word )
current-vocab lookup-word ; current-vocab lookup-word ;

View File

@ -68,4 +68,4 @@ annotation-tags [
} cleave } cleave
] each ] each
]=] ]=]

View File

@ -24,4 +24,3 @@ CONSTANT: b { 0 0 0 0 2 3 1 }
{ 0 0 0 10 10 } { 0 0 1 1 1 } { 0 0 0 1 2 } { 0 0 0 10 10 } { 0 0 1 1 1 } { 0 0 0 1 2 }
weighted-cosine-similarity weighted-cosine-similarity
] unit-test ] unit-test

View File

@ -225,4 +225,4 @@ ERROR: subseq-expected-but-got-eof n string expected ;
length swap [ - ] dip length swap [ - ] dip
] [ ] [
[ nip ] dip [ [ length ] bi@ - ] 2keep drop [ nip ] dip [ [ length ] bi@ - ] 2keep drop
] if ; inline ] if ; inline