Ignore:
Timestamp:
Feb 15, 2013, 7:24:29 AM (6 years ago)
Author:
gb
Message:

Propagate recent trunk changes.

Location:
release/1.9/source/lib
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/1.9/source/lib

  • release/1.9/source/lib/numbers.lisp

    r15685 r15706  
    727727                    (ty2 (* ty ty))
    728728                    (d (1+ (* (* tx tx) ty2)))
    729                     (n (if (> (abs r) 20)
    730                          (* 4 (exp (- (* 2 (abs r)))))
    731                          (let ((c (cosh r)))
    732                            (/ (* c c))))))
     729                    (c (if (> (abs r) 20)
     730                         (* 2 (exp (- (abs r))))
     731                         (/ (cosh r)))))
    733732               (complex (/ (* tx (1+ ty2)) d)
    734                         (/ (* n ty) d))))))
     733                        (/ (* (* c c) ty) d))))))
    735734        ((typep x 'double-float)
    736735         (%double-float-tanh! x (%make-dfloat)))
Note: See TracChangeset for help on using the changeset viewer.