Changeset 36955 in project


Ignore:
Timestamp:
12/03/18 00:52:38 (11 days ago)
Author:
kon
Message:

comments, pithy var id

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/fp-utils/trunk/fp-utils.scm

    r36954 r36955  
    6161;;;
    6262
     63;(so no conversion)
    6364(define-constant PRECISION-DEFAULT 4.0)
    6465
    6566(define-syntax make-unary-with-precision
    6667  (syntax-rules ()
    67     ((_ ?op)
     68    ((make-unary-with-precision ?op)
    6869      (lambda (n #!optional (p PRECISION-DEFAULT))
    6970        (if (fpzero? p)
    7071          (?op n)
    71           (let ((precfact (fpprecision-factor p)))
    72             (fp/ (?op (fp* n precfact)) precfact) ) ) ) ) ) )
     72          (let ((pf (fpprecision-factor p)))
     73            (fp/ (?op (fp* n pf)) pf) ) ) ) ) ) )
    7374
    7475;;
Note: See TracChangeset for help on using the changeset viewer.