From d937e03e1aa7bc637c7411d2ac41aca982ea0a9c Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Sun, 20 Jul 2008 09:05:15 -0500 Subject: [PATCH] Fix methods in math.geometry --- extra/math/geometry/geometry.factor | 4 ++-- extra/math/geometry/rect/rect.factor | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/extra/math/geometry/geometry.factor b/extra/math/geometry/geometry.factor index c331192a4b..f70864aba3 100644 --- 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 862d50c5cd..d5b83e2715 100644 --- 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 ;