From be9d6326dd5fd558fe412d0466de65883d0303b2 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 27 Jun 2008 21:11:58 -0500
Subject: [PATCH] Fix inference

---
 extra/ori/ori-tests.factor | 9 +++++++++
 extra/ori/ori.factor       | 2 +-
 2 files changed, 10 insertions(+), 1 deletion(-)
 create mode 100644 extra/ori/ori-tests.factor

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> ori
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-: make-matrix ( quot width -- matrix ) >r { } make r> group ;
+: make-matrix ( quot width -- matrix ) >r { } make r> group ; inline
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!