M: integer /
[
- throw-division-by-zero
+ division-by-zero
] [
dup 0 < [ [ neg ] bi@ ] when
2dup fast-gcd [ /i ] curry bi@ fraction>
M: integer recip
1 swap [
- throw-division-by-zero
+ division-by-zero
] [
dup 0 < [ [ neg ] bi@ ] when fraction>
] if-zero ;