Changeset 17884 in project
 Timestamp:
 04/23/10 02:35:08 (9 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

release/4/mpfi/trunk/mpfi.scm
r17881 r17884 115 115 (definesyntax iadefinenondestructiveoperation 116 116 (syntaxrules () 117 ((_ op! op binary) 118 (define op (lambda (arg1 arg2) 119 (let ((res (makeiaintervalempty))) 120 (op! res arg1 arg2) 121 res)))) 117 122 ((_ op! op unary) 118 123 (define op (lambda (arg1) 119 (let ((res (makeiainterval )))124 (let ((res (makeiaintervalempty))) 120 125 (op! res arg1) 121 res))))122 ((_ op! op binary)123 (define op (lambda (arg1 arg2)124 (let ((res (makeiainterval)))125 (op! res arg1 arg2)126 126 res)))) 127 127 ((_ op! op noargs) 128 128 (define op (lambda () 129 (let ((res (makeiainterval )))129 (let ((res (makeiaintervalempty))) 130 130 (op! res) 131 131 res)))))) … … 213 213 (iadefinenondestructiveoperation ialog10! ialog10 unary) 214 214 215 (iadefineoperation ia log2! "mpfi_const_log2" ("mpfi_t" ROP))216 (iadefineoperation ia pi! "mpfi_const_pi" ("mpfi_t" ROP))217 (iadefineoperation ia e! "mpfi_const_euler" ("mpfi_t" ROP))218 219 (iadefinenondestructiveoperation ia log2! ialog2 noargs)220 (iadefinenondestructiveoperation ia pi! iapi noargs)221 (iadefinenondestructiveoperation ia e! iae noargs)215 (iadefineoperation iaconstlog2! "mpfi_const_log2" ("mpfi_t" ROP)) 216 (iadefineoperation iaconstpi! "mpfi_const_pi" ("mpfi_t" ROP)) 217 (iadefineoperation iaconste! "mpfi_const_euler" ("mpfi_t" ROP)) 218 219 (iadefinenondestructiveoperation iaconstlog2! ialog2 noargs) 220 (iadefinenondestructiveoperation iaconstpi! iapi noargs) 221 (iadefinenondestructiveoperation iaconste! iae noargs) 222 222 223 223 ;; Comparisons
Note: See TracChangeset
for help on using the changeset viewer.