diff --git a/extra/ori/ori-tests.factor b/extra/ori/ori-tests.factor new file mode 100644 index 0000000000..6121ab101e --- /dev/null +++ b/extra/ori/ori-tests.factor @@ -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 diff --git a/extra/ori/ori.factor b/extra/ori/ori.factor index 7a32fdbf50..20f022f19f 100644 --- a/extra/ori/ori.factor +++ b/extra/ori/ori.factor @@ -17,7 +17,7 @@ C: ori ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -: make-matrix ( quot width -- matrix ) >r { } make r> group ; +: make-matrix ( quot width -- matrix ) >r { } make r> group ; inline ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!