Fix methods in math.geometry

diff --git a/extra/math/geometry/geometry.factor b/extra/math/geometry/geometry.factor
index c331192a4b7c5885a9000c9bf3bee98dcf39828a..f70864aba3c92d579ff57427c703e2018ac144ac 100644 (file)
--- a/extra/math/geometry/geometry.factor
+++ b/extra/math/geometry/geometry.factor
@@ -4,5 +4,5 @@ IN: math.geometry
 GENERIC: width  ( object -- width )
 GENERIC: height ( object -- width )
 
-GENERIC: set-x! ( object x -- object )
-GENERIC: set-y! ( object x -- object )
\ No newline at end of file
+GENERIC# set-x! 1 ( object x -- object )
+GENERIC# set-y! 1 ( object y -- object )
\ No newline at end of file

diff --git a/extra/math/geometry/rect/rect.factor b/extra/math/geometry/rect/rect.factor
index 862d50c5cdb3c113332285422cb743143b317e7b..d5b83e2715497385932fa17ee743e155018771ad 100644 (file)
--- a/extra/math/geometry/rect/rect.factor
+++ b/extra/math/geometry/rect/rect.factor
@@ -46,4 +46,4 @@ M: rect width  ( rect -- width  ) dim>> first  ;
 M: rect height ( rect -- height ) dim>> second ;
 
 M: rect set-x! ( rect x -- rect ) over loc>> set-first  ;
-M: rect set-y! ( rect y -- rect ) over loc>> set-second ;
\ No newline at end of file
+M: rect set-y! ( rect y -- rect ) over loc>> set-second ;