Changeset 17884 in project


Ignore:
Timestamp:
04/23/10 02:35:08 (9 years ago)
Author:
jeronimo
Message:
  • mpfi:
    • fixed conflicting identifier names
    • fixed worng order in macro patterns
File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/mpfi/trunk/mpfi.scm

    r17881 r17884  
    115115(define-syntax ia-define-nondestructive-operation
    116116  (syntax-rules ()
     117    ((_ op! op binary)
     118     (define op (lambda (arg1 arg2)
     119                  (let ((res (make-ia-interval-empty)))
     120                    (op! res arg1 arg2)
     121                    res))))
    117122    ((_ op! op unary)
    118123     (define op (lambda (arg1)
    119                   (let ((res (make-ia-interval)))
     124                  (let ((res (make-ia-interval-empty)))
    120125                    (op! res arg1)
    121                     res))))
    122     ((_ op! op binary)
    123      (define op (lambda (arg1 arg2)
    124                   (let ((res (make-ia-interval)))
    125                     (op! res arg1 arg2)
    126126                    res))))
    127127    ((_ op! op noargs)
    128128     (define op (lambda ()
    129                   (let ((res (make-ia-interval)))
     129                  (let ((res (make-ia-interval-empty)))
    130130                    (op! res)
    131131                    res))))))
     
    213213(ia-define-nondestructive-operation ia-log10! ia-log10 unary)
    214214
    215 (ia-define-operation ia-log2! "mpfi_const_log2"  ("mpfi_t" ROP))
    216 (ia-define-operation ia-pi!   "mpfi_const_pi"    ("mpfi_t" ROP))
    217 (ia-define-operation ia-e!    "mpfi_const_euler" ("mpfi_t" ROP))
    218 
    219 (ia-define-nondestructive-operation ia-log2! ia--log2 noargs)
    220 (ia-define-nondestructive-operation ia-pi!   ia-pi noargs)
    221 (ia-define-nondestructive-operation ia-e!    ia-e noargs)
     215(ia-define-operation ia-const-log2! "mpfi_const_log2"  ("mpfi_t" ROP))
     216(ia-define-operation ia-const-pi!   "mpfi_const_pi"    ("mpfi_t" ROP))
     217(ia-define-operation ia-const-e!    "mpfi_const_euler" ("mpfi_t" ROP))
     218
     219(ia-define-nondestructive-operation ia-const-log2! ia--log2 noargs)
     220(ia-define-nondestructive-operation ia-const-pi!   ia-pi noargs)
     221(ia-define-nondestructive-operation ia-const-e!    ia-e noargs)
    222222
    223223;; Comparisons
Note: See TracChangeset for help on using the changeset viewer.