Changeset 13705 in project for chicken


Ignore:
Timestamp:
03/12/09 11:19:05 (11 years ago)
Author:
Kon Lovett
Message:

Fixed wrong # of args.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/chicken-primitive-object-inlines.scm

    r13704 r13705  
    456456(define-inline (%fpfraction x) ((##core#primitive "C_flonum_fraction") x))
    457457
    458 (define-inline (%fpnegate x y) (##core#inline_allocate ("C_a_i_flonum_negate" 4) x y))
     458(define-inline (%fpnegate x) (##core#inline_allocate ("C_a_i_flonum_negate" 4) x))
    459459
    460460(define-inline (%fpfloor x) ((##core#primitive "C_flonum_floor") x))
     
    472472(define-inline (%fpasin x) (##core#inline_allocate ("C_a_i_asin" 4) x))
    473473(define-inline (%fpatan x) (##core#inline_allocate ("C_a_i_atan" 4) x))
    474 (define-inline (%fpatan2 x) (##core#inline_allocate ("C_a_i_atan2" 4) x))
     474(define-inline (%fpatan2 x y) (##core#inline_allocate ("C_a_i_atan2" 4) x y))
    475475(define-inline (%fpcos x) (##core#inline_allocate ("C_a_i_cos" 4) x))
    476476(define-inline (%fpexp x) (##core#inline_allocate ("C_a_i_exp" 4) x))
     
    953953(define-inline (%asin x) (##core#inline_allocate ("C_a_i_asin" 4) x))
    954954(define-inline (%atan x) (##core#inline_allocate ("C_a_i_atan" 4) x))
    955 (define-inline (%atan2 x) (##core#inline_allocate ("C_a_i_atan2" 4) x))
     955(define-inline (%atan2 x y) (##core#inline_allocate ("C_a_i_atan2" 4) x y))
    956956(define-inline (%cos x) (##core#inline_allocate ("C_a_i_cos" 4) x))
    957957(define-inline (%exp x) (##core#inline_allocate ("C_a_i_exp" 4) x))
Note: See TracChangeset for help on using the changeset viewer.