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
[ build-tree optimize-tree ] keep build-cfg ;
: test-optimizer ( quot -- cfgs )
test-builder [ [ optimize-cfg ] with-cfg ] map ;
: test-ssa ( quot -- cfgs )
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 )
[ 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
drop +character+ ; inline

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

@ -79,8 +79,8 @@ IN: compiler.graphviz
: optimized-cfg ( quot -- cfgs )
{
{ [ dup cfg? ] [ 1array ] }
{ [ dup quotation? ] [ test-optimizer ] }
{ [ dup word? ] [ test-optimizer ] }
{ [ dup quotation? ] [ test-ssa ] }
{ [ dup word? ] [ test-ssa ] }
[ ]
} 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 } }
{ $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: 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." } ;

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

@ -22,9 +22,6 @@ SYMBOLS: up-axis unit-ratio ;
: string>numbers ( string -- number-seq )
" \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 )
[ tag-named ]
[ 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 )
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
group
[ swap over length 2 > [ >y-up-axis! ] [ drop ] if ] with map ;
@ -142,7 +139,7 @@ VERTEX-FORMAT: collada-vertex-format
: triangles>model ( sources vertices triangles-tag -- model )
[ "input" tags-named collect-sources ] keep swap
[
largest-offset+1 swap
[ "count" x@ string>number ] [ triangles>numbers ] bi