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

fix floor/ceiling words

cvs
Slava Pestov 2005-04-30 04:59:56 +00:00
parent cd978d822e
commit 9835ce4b03
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/alien/structs.factor
View File

@ -39,7 +39,7 @@ math namespaces parser strings words ;
: array-constructor ( width -- ) : array-constructor ( width -- )
#! Make a word <foo-array> ( n -- byte-array ). #! Make a word <foo-array> ( n -- byte-array ).
"struct-name" get "-array" cat2 constructor-word "struct-name" get "-array" cat2 constructor-word
swap cell / ceiling [ * <byte-array> ] cons swap [ * <byte-array> ] cons
define-compound ; define-compound ;
: define-nth ( width -- ) : define-nth ( width -- )

4
library/math/ratio.factor
View File

@ -39,5 +39,5 @@ M: ratio /i scale /i ;
M: ratio /f scale /f ; M: ratio /f scale /f ;
M: ratio truncate >fraction /i ; M: ratio truncate >fraction /i ;
M: ratio floor >fraction /mod dup 0 < [ 1 - ] when ; M: ratio floor >fraction /i dup 0 < [ 1 - ] when ;
M: ratio ceiling >fraction /mod dup 0 > [ 1 + ] when ; M: ratio ceiling >fraction /i dup 0 > [ 1 + ] when ;