Changeset 17263 in project


Ignore:
Timestamp:
02/14/10 20:50:35 (10 years ago)
Author:
sjamaan
Message:

Fix another silly mistake

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/numbers/branches/standalone/numbers.scm

    r17262 r17263  
    350350     (switchq (%check-number y)
    351351       [FIX (let ((n (%fix-neg y)))
    352               (if (= (%check-number y) BIG) ;; fix-neg(most negative) => bignum
     352              (if (= (%check-number n) BIG) ;; fix-neg(most negative) => bignum
    353353                  (%fix+big x n)
    354354                  (%fix+fix x n)))]
Note: See TracChangeset for help on using the changeset viewer.