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

Remove unused stack effects from DEFER: declarations.

db4
John Benediktsson 2011-10-18 14:42:17 -07:00
parent 6e00eaa3f8
commit b237df3a3b
6 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/csv/csv.factor
View File

@ -13,7 +13,7 @@ CHAR: , delimiter set-global
: delimiter> ( -- delimiter ) delimiter get ; inline : delimiter> ( -- delimiter ) delimiter get ; inline
DEFER: quoted-field ( -- endchar ) DEFER: quoted-field
: skip-to-field-end ( -- endchar ) : skip-to-field-end ( -- endchar )
"\n" delimiter> suffix read-until nip ; inline "\n" delimiter> suffix read-until nip ; inline

2
basis/serialize/serialize.factor
View File

@ -162,7 +162,7 @@ M: wrapper (serialize) ( obj -- )
CHAR: W write1 CHAR: W write1
wrapped>> (serialize) ; wrapped>> (serialize) ;
DEFER: (deserialize) ( -- obj ) DEFER: (deserialize)
SYMBOL: deserialized SYMBOL: deserialized

2
basis/stack-checker/transforms/transforms-tests.factor
View File

@ -43,7 +43,7 @@ C: <color> color
[ bad-new-test ] must-fail [ bad-new-test ] must-fail
! Corner case if macro expansion calls 'infer', found by Doug ! Corner case if macro expansion calls 'infer', found by Doug
DEFER: smart-combo ! ( quot -- ) DEFER: smart-combo
\ smart-combo [ infer [ ] curry ] 1 define-transform \ smart-combo [ infer [ ] curry ] 1 define-transform

2
extra/benchmark/raytracer-simd/raytracer-simd.factor
View File

@ -111,7 +111,7 @@ CONSTANT: initial-hit T{ hit f double-4{ 0.0 0.0 0.0 0.0 } 1/0. }
: create-center ( c r d -- c2 ) : create-center ( c r d -- c2 )
[ 3.0 12.0 sqrt / * ] dip n*v v+ ; inline no-compile [ 3.0 12.0 sqrt / * ] dip n*v v+ ; inline no-compile
DEFER: create ( level c r -- scene ) DEFER: create
: create-step ( level c r d -- scene ) : create-step ( level c r d -- scene )
over [ create-center ] dip 2.0 / [ 1 - ] 2dip create ; over [ create-center ] dip 2.0 / [ 1 - ] 2dip create ;

2
extra/benchmark/raytracer/raytracer.factor
View File

@ -120,7 +120,7 @@ CONSTANT: initial-hit T{ hit f double-array{ 0.0 0.0 0.0 } 1/0. }
: create-center ( c r d -- c2 ) : create-center ( c r d -- c2 )
[ 3.0 12.0 sqrt / * ] dip n*v v+ ; inline [ 3.0 12.0 sqrt / * ] dip n*v v+ ; inline
DEFER: create ( level c r -- scene ) DEFER: create
: create-step ( level c r d -- scene ) : create-step ( level c r d -- scene )
over [ create-center ] dip 2.0 / [ 1 - ] 2dip create ; over [ create-center ] dip 2.0 / [ 1 - ] 2dip create ;

2
extra/math/text/french/french.factor
View File

@ -6,7 +6,7 @@ IN: math.text.french
<PRIVATE <PRIVATE
DEFER: basic ( n -- str ) DEFER: basic
CONSTANT: literals CONSTANT: literals
H{ { 0 "zéro" } { 1 "un" } { 2 "deux" } { 3 "trois" } { 4 "quatre" } H{ { 0 "zéro" } { 1 "un" } { 2 "deux" } { 3 "trois" } { 4 "quatre" }