steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix methods in math.geometry

db4
Eduardo Cavazos 2008-07-20 09:05:15 -05:00
parent 0ff745ffed
commit d937e03e1a
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/math/geometry/geometry.factor
View File

@ -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 )
GENERIC# set-x! 1 ( object x -- object )
GENERIC# set-y! 1 ( object y -- object )

2
extra/math/geometry/rect/rect.factor
View File

@ -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 ;
M: rect set-y! ( rect y -- rect ) over loc>> set-second ;