Changeset 38797 in project


Ignore:
Timestamp:
07/18/20 23:12:19 (5 months ago)
Author:
Kon Lovett
Message:

use return macro (not C_return)

File:
1 edited

Legend:

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

    r38486 r38797  
    294294    (lambda (n)
    295295      ((foreign-lambda* double ((double x) (double lnb))
    296         "C_return( log( x ) / lnb );") n lnb)) ) )
     296        "return( log( x ) / lnb );") n lnb)) ) )
    297297
    298298(: log-with-base (fixnum --> (procedure (float) float)))
     
    371371  (cond-expand
    372372    (windows
    373       (foreign-lambda* bool ((double n)) "C_return( _copysign( 1.0, n ) < 0 );"))
     373      (foreign-lambda* bool ((double n)) "return( _copysign( 1.0, n ) < 0 );"))
    374374    (else
    375375      (lambda (num)
     
    431431          break;
    432432        }
    433         C_return( name );") )
     433        return( name );") )
    434434    (else
    435435      (lambda (num)
     
    459459              break;
    460460            }
    461             C_return( name );"))
     461            return( name );"))
    462462        ;
    463463        (if (fp= -0.0 num)
     
    499499          break;
    500500        }
    501         C_return( name );") )
     501        return( name );") )
    502502    (else
    503503      (foreign-lambda* symbol ((double x)) "
     
    523523          break;
    524524        }
    525         C_return( name );") ) ) )
     525        return( name );") ) ) )
    526526
    527527) ;module mathh
Note: See TracChangeset for help on using the changeset viewer.