Changeset 32544 in project
- Timestamp:
- 07/05/15 13:00:12 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/numbers/trunk/numbers.scm
r32321 r32544 323 323 (%/ numerator d) 324 324 (%make-ratnum numerator d)))) 325 (else (bad-number '+ y)) ) ) 325 (else (if (not (number? x)) 326 (bad-number '+ x) 327 (bad-number '+ y))) ) ) 326 328 327 329 (define (- arg1 . args) … … 367 369 (%/ numerator d) 368 370 (%make-ratnum numerator d)))) 369 (else (bad-number '- y)) ) ) 371 (else (if (not (number? x)) 372 (bad-number '- x) 373 (bad-number '- y))) ) ) 370 374 371 375 (define (* . args) … … 375 379 (args (##sys#slot args 1))) 376 380 (if (null? args) 377 (if (number? x) x (bad-number ' +x))381 (if (number? x) x (bad-number '* x)) 378 382 (let loop ((args (##sys#slot args 1)) 379 383 (x (%* x (##sys#slot args 0)))) … … 416 420 (nonrat*rat y x))) 417 421 ((ratnum? y) (nonrat*rat x y)) 418 (else (bad-number '* x)))) 422 (else (if (not (number? x)) 423 (bad-number '* x) 424 (bad-number '* y))))) 419 425 420 426 (define-inline (bignum-digit-count b) (##core#inline "C_u_i_bignum_size" b)) … … 513 519 (%ratnum num denom)))) 514 520 ((not (number? x)) (bad-number '/ x)) 515 (else (bad-number '/ y))) ) 521 (else (if (not (number? x)) 522 (bad-number '/ x) 523 (bad-number '/ y)))) ) 516 524 517 525 ;; Burnikel-Ziegler recursive division: Split high number (x) in three
Note: See TracChangeset
for help on using the changeset viewer.