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

More cleanup of unused stuff.

db4
John Benediktsson 2011-10-19 11:00:07 -07:00
parent d1f5fefab0
commit f4a6e10818
5 changed files with 4 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/compiler/cfg/debugger/debugger.factor
View File

@ -27,9 +27,6 @@ M: word test-builder
0 vreg-counter set-global 0 vreg-counter set-global
[ build-tree optimize-tree ] keep build-cfg ; [ build-tree optimize-tree ] keep build-cfg ;
: test-optimizer ( quot -- cfgs )
test-builder [ [ optimize-cfg ] with-cfg ] map ;
: test-ssa ( quot -- cfgs ) : test-ssa ( quot -- cfgs )
test-builder [ test-builder [
[ [

8
core/io/encodings/encodings.factor
View File

@ -50,14 +50,6 @@ M: object <decoder> f decoder boa ; inline
: >decoder< ( decoder -- stream encoding ) : >decoder< ( decoder -- stream encoding )
[ stream>> ] [ code>> ] bi ; inline [ stream>> ] [ code>> ] bi ; inline
: fix-read1 ( stream char -- char )
over cr>> [
over cr-
dup CHAR: \n = [
drop dup stream-read1
] when
] when nip ; inline
M: decoder stream-element-type M: decoder stream-element-type
drop +character+ ; inline drop +character+ ; inline

4
extra/compiler/graphviz/graphviz.factor
View File

@ -79,8 +79,8 @@ IN: compiler.graphviz
: optimized-cfg ( quot -- cfgs ) : optimized-cfg ( quot -- cfgs )
{ {
{ [ dup cfg? ] [ 1array ] } { [ dup cfg? ] [ 1array ] }
{ [ dup quotation? ] [ test-optimizer ] } { [ dup quotation? ] [ test-ssa ] }
{ [ dup word? ] [ test-optimizer ] } { [ dup word? ] [ test-ssa ] }
[ ] [ ]
} cond ; } cond ;

4
extra/game/models/collada/collada-docs.factor
View File

@ -24,10 +24,6 @@ HELP: string>numbers ( string -- number-seq )
{ $values { "string" string } { "number-seq" sequence } } { $values { "string" string } { "number-seq" sequence } }
{ $description "Splits a string on whitespace and converts the elements to a number sequence." } ; { $description "Splits a string on whitespace and converts the elements to a number sequence." } ;
HELP: string>floats ( string -- float-seq )
{ $values { "string" string } { "float-seq" sequence } }
{ $description "Splits a string on whitespace and converts the elements to a float sequence." } ;
HELP: x-up { $class-description "Right-handed 3D coordinate system where X is up." } ; HELP: x-up { $class-description "Right-handed 3D coordinate system where X is up." } ;
HELP: y-up { $class-description "Right-handed 3D coordinate system where Y is up." } ; HELP: y-up { $class-description "Right-handed 3D coordinate system where Y is up." } ;
HELP: z-up { $class-description "Right-handed 3D coordinate system where Z is up." } ; HELP: z-up { $class-description "Right-handed 3D coordinate system where Z is up." } ;

5
extra/game/models/collada/collada.factor
View File

@ -22,9 +22,6 @@ SYMBOLS: up-axis unit-ratio ;
: string>numbers ( string -- number-seq ) : string>numbers ( string -- number-seq )
" \t\n" split harvest [ string>number ] map ; " \t\n" split harvest [ string>number ] map ;
: string>floats ( string -- float-seq )
" \t\n" split harvest [ string>number ] map ;
: x/ ( tag child-name -- child-tag ) : x/ ( tag child-name -- child-tag )
[ tag-named ] [ tag-named ]
[ rot dup [ drop missing-child ] unless 2nip ] [ rot dup [ drop missing-child ] unless 2nip ]
@ -72,7 +69,7 @@ M: z-up >y-up-axis!
: source>seq ( source-tag up-axis scale -- sequence ) : source>seq ( source-tag up-axis scale -- sequence )
rot rot
[ "float_array" x/ xt string>floats [ * ] with map ] [ "float_array" x/ xt string>numbers [ * ] with map ]
[ nip "technique_common" x/ "accessor" x/ "stride" x@ string>number ] 2bi [ nip "technique_common" x/ "accessor" x/ "stride" x@ string>number ] 2bi
group group
[ swap over length 2 > [ >y-up-axis! ] [ drop ] if ] with map ; [ swap over length 2 > [ >y-up-axis! ] [ drop ] if ] with map ;