Merge branch 'master' of git://factorcode.org/git/factor
commit
9140679e9f
|
@ -22,7 +22,7 @@ VAR: command-table
|
||||||
: exec-command* ( string -- )
|
: exec-command* ( string -- )
|
||||||
[ parameter ] [ command ] bi
|
[ parameter ] [ command ] bi
|
||||||
command-table> at dup
|
command-table> at dup
|
||||||
[ 1 tail* call ] [ 3drop ] if ;
|
[ 1 tail* call ] [ 2drop ] if ;
|
||||||
|
|
||||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
|
|
@ -0,0 +1,9 @@
|
||||||
|
IN: ori.tests
|
||||||
|
USING: ori tools.test ;
|
||||||
|
|
||||||
|
\ pitch-up must-infer
|
||||||
|
\ pitch-down must-infer
|
||||||
|
\ turn-left must-infer
|
||||||
|
\ turn-right must-infer
|
||||||
|
\ roll-left must-infer
|
||||||
|
\ roll-right must-infer
|
|
@ -17,7 +17,7 @@ C: <ori> ori
|
||||||
|
|
||||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
: make-matrix ( quot width -- matrix ) >r { } make r> group ;
|
: make-matrix ( quot width -- matrix ) >r { } make r> group ; inline
|
||||||
|
|
||||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue