Changeset 36003 in project


Ignore:
Timestamp:
07/22/18 21:27:45 (14 months ago)
Author:
Kon Lovett
Message:

rm old code

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/mathh/trunk/mathh.scm

    r36001 r36003  
    2929#include <math.h>
    3030
    31 /* argvector chicken starts with version 8 */
    32 #if C_BINARY_VERSION >= 8
    33 # define ARGVECTOR_CHICKEN
    34 #endif
    35 
    3631#if defined(__sun__) || defined(__sun)
    3732# include <sunmath.h> /* log2 */
     
    271266  C_word value1  = C_flonum( &values, ipart );
    272267  C_word value2  = C_flonum( &values, result );
    273 #ifdef ARGVECTOR_CHICKEN
    274268  C_word av[4] = { C_SCHEME_UNDEFINED, C_k, value1, value2 };
    275269  C_values( 4, av );
    276 #else
    277   C_values( 4, C_SCHEME_UNDEFINED, C_k, value1, value2 );
    278 #endif
    279270  ") )
    280271
     
    287278  C_word value1 = C_flonum( &values, result );
    288279  C_word value2 = C_fix( exp );
    289 #ifdef ARGVECTOR_CHICKEN
    290280  C_word av[4] = { C_SCHEME_UNDEFINED, C_k, value1, value2 };
    291281  C_values( 4, av );
    292 #else
    293   C_values( 4, C_SCHEME_UNDEFINED, C_k, value1, value2 );
    294 #endif
    295282  ") )
    296283
Note: See TracChangeset for help on using the changeset viewer.