diff --git a/basis/csv/csv.factor b/basis/csv/csv.factor index 133223b6e4..483a5825a9 100644 --- a/basis/csv/csv.factor +++ b/basis/csv/csv.factor @@ -12,7 +12,7 @@ SYMBOL: delimiter CHAR: , delimiter set-global -: delimiter> delimiter get ; inline +: delimiter> ( -- delimiter ) delimiter get ; inline DEFER: quoted-field ( -- endchar ) diff --git a/extra/benchmark/mandel/colors/colors.factor b/extra/benchmark/mandel/colors/colors.factor index 218f566eda..edc848a0ca 100644 --- a/extra/benchmark/mandel/colors/colors.factor +++ b/extra/benchmark/mandel/colors/colors.factor @@ -2,7 +2,7 @@ USING: math math.order kernel arrays byte-arrays sequences colors.hsv benchmark.mandel.params accessors colors ; IN: benchmark.mandel.colors -: scale 255 * >fixnum ; inline +: scale ( x -- y ) 255 * >fixnum ; inline : scale-rgb ( rgba -- n ) [ red>> scale ] [ green>> scale ] [ blue>> scale ] tri 3byte-array ; diff --git a/extra/opengl/demo-support/demo-support.factor b/extra/opengl/demo-support/demo-support.factor index 92778194e3..c1b656b6c8 100755 --- a/extra/opengl/demo-support/demo-support.factor +++ b/extra/opengl/demo-support/demo-support.factor @@ -3,7 +3,7 @@ namespaces opengl opengl.gl sequences ui ui.gadgets ui.gestures ui.render accessors combinators ; IN: opengl.demo-support -: FOV 2.0 sqrt 1+ ; inline +: FOV ( -- x ) 2.0 sqrt 1+ ; inline : MOUSE-MOTION-SCALE 0.5 ; inline : KEY-ROTATE-STEP 10.0 ; inline diff --git a/extra/project-euler/215/215.factor b/extra/project-euler/215/215.factor index 82d6a31c66..297fb69de3 100644 --- a/extra/project-euler/215/215.factor +++ b/extra/project-euler/215/215.factor @@ -33,8 +33,8 @@ TUPLE: end { ways integer } ; C: block C: end -: 0 ; inline -: 1 ; inline +: ( -- end ) 0 ; inline +: ( -- end ) 1 ; inline : failure? ( t -- ? ) ways>> 0 = ; inline