Changeset 8609 in project


Ignore:
Timestamp:
02/21/08 17:34:36 (12 years ago)
Author:
Kon Lovett
Message:

Fix for MSVC

Location:
release/3/mathh
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/3/mathh/tags/1.11/mathh.scm

    r8510 r8609  
    110110      (foreign-lambda double "log2" double)]
    111111    [else
    112       (foreign-lambda* double ((double x)) "return (log(x) / M_LN2);")]))
     112      (foreign-lambda* double ((double x))
     113       "#ifndef M_LN2\n"
     114       "#define #define M_LN2 0.693147180559945309417232121458176568\n"
     115       "#endif\n"
     116       "return (log(x) / M_LN2);")]))
    113117
    114118;; Log function for base n
  • release/3/mathh/trunk/mathh.scm

    r8510 r8609  
    110110      (foreign-lambda double "log2" double)]
    111111    [else
    112       (foreign-lambda* double ((double x)) "return (log(x) / M_LN2);")]))
     112      (foreign-lambda* double ((double x))
     113       "#ifndef M_LN2\n"
     114       "#define #define M_LN2 0.693147180559945309417232121458176568\n"
     115       "#endif\n"
     116       "return (log(x) / M_LN2);")]))
    113117
    114118;; Log function for base n
Note: See TracChangeset for help on using the changeset viewer.