Fix more compile errors
parent
0021cde743
commit
c073a8b4f5
|
@ -12,7 +12,7 @@ SYMBOL: delimiter
|
|||
|
||||
CHAR: , delimiter set-global
|
||||
|
||||
: delimiter> delimiter get ; inline
|
||||
: delimiter> ( -- delimiter ) delimiter get ; inline
|
||||
|
||||
DEFER: quoted-field ( -- endchar )
|
||||
|
||||
|
|
|
@ -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 ;
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
|
@ -33,8 +33,8 @@ TUPLE: end { ways integer } ;
|
|||
|
||||
C: <block> block
|
||||
C: <end> end
|
||||
: <failure> 0 <end> ; inline
|
||||
: <success> 1 <end> ; inline
|
||||
: <failure> ( -- end ) 0 <end> ; inline
|
||||
: <success> ( -- end ) 1 <end> ; inline
|
||||
|
||||
: failure? ( t -- ? ) ways>> 0 = ; inline
|
||||
|
||||
|
|
Loading…
Reference in New Issue