Changeset 8916


Ignore:
Timestamp:
Mar 28, 2008, 5:17:58 AM (11 years ago)
Author:
gb
Message:

Back out of division-by-zero check in integer-/-integer, since Greg's
change to BUILD-RATIO catches this already.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/l0-numbers.lisp

    r8915 r8916  
    708708            (build-ratio x y)
    709709            (build-ratio (%fixnum-truncate x gcd) (%fixnum-truncate y gcd))))))
    710     (if (eql y 0)
    711       (error 'division-by-zero :operation '/ :operands (list x y))
    712710      (let ((gcd (gcd x y)))
    713711        (if (eql gcd 1)
    714712          (build-ratio x y)
    715           (build-ratio (truncate x gcd) (truncate y gcd)))))))
     713          (build-ratio (truncate x gcd) (truncate y gcd))))))
    716714
    717715
Note: See TracChangeset for help on using the changeset viewer.