From be9d6326dd5fd558fe412d0466de65883d0303b2 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 27 Jun 2008 21:11:58 -0500 Subject: [PATCH 1/2] 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 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -: make-matrix ( quot width -- matrix ) >r { } make r> group ; +: make-matrix ( quot width -- matrix ) >r { } make r> group ; inline ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! From 39462dbc94ef31bb08059f896ef5614ec0c8ed65 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 27 Jun 2008 21:12:43 -0500 Subject: [PATCH 2/2] Fix stack underflow in lsys --- extra/lsys/strings/interpret/interpret.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/lsys/strings/interpret/interpret.factor b/extra/lsys/strings/interpret/interpret.factor index 1d992cc1e2..8d27b29d22 100644 --- a/extra/lsys/strings/interpret/interpret.factor +++ b/extra/lsys/strings/interpret/interpret.factor @@ -22,7 +22,7 @@ VAR: command-table : exec-command* ( string -- ) [ parameter ] [ command ] bi command-table> at dup - [ 1 tail* call ] [ 3drop ] if ; + [ 1 tail* call ] [ 2drop ] if ; ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!