inverse: Fix swapped + and *

diff --git a/basis/inverse/inverse-tests.factor b/basis/inverse/inverse-tests.factor
index 18f4ad32b41bec4a2753217faeae9b35a15596be..b7b2cb1adbfd3b1f9a430d29e55f8b97d46b20d3 100644 (file)
--- a/basis/inverse/inverse-tests.factor
+++ b/basis/inverse/inverse-tests.factor
@@ -73,6 +73,9 @@ C: <nil> nil
 { 0.0 } [ 0.0 pi + [ pi + ] undo ] unit-test
 { } [ 3 [ __ ] undo ] unit-test
 
+{ 2 } [ 4 [ 2 swap + ] undo ] unit-test
+{ 2 } [ 4 [ 2 swap * ] undo ] unit-test
+
 { 2.0 } [ 2 3 ^ [ 3 ^ ] undo ] unit-test
 { 3.0 } [ 2 3 ^ [ 2 swap ^ ] undo ] unit-test
 

diff --git a/basis/inverse/inverse.factor b/basis/inverse/inverse.factor
index 13537e2c920850449375e80fb9423dbdba3f390c..3dfa97b031db240b34859c00b8c4ed3a7eafa5b7 100644 (file)
--- a/basis/inverse/inverse.factor
+++ b/basis/inverse/inverse.factor
@@ -155,9 +155,9 @@ ERROR: missing-literal ;
     dup { [ word? ] [ symbol? not ] } 1&&
     [ missing-literal ] when ;
 
-\ + [ - ] [ - ] define-math-inverse
+\ + [ - ] [ swap - ] define-math-inverse
 \ - [ + ] [ - ] define-math-inverse
-\ * [ / ] [ / ] define-math-inverse
+\ * [ / ] [ swap / ] define-math-inverse
 \ / [ * ] [ / ] define-math-inverse
 \ ^ [ recip ^ ] [ swap [ log ] bi@ / ] define-math-inverse