Changeset 13806 in project


Ignore:
Timestamp:
03/18/09 04:28:20 (11 years ago)
Author:
Kon Lovett
Message:

Fix for mismatched arg ids.

File:
1 edited

Legend:

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

    r13768 r13806  
    742742(define-inline (%port-type-set! port s) (%wordblock-set!/mutate port 7 s))
    743743(define-inline (%port-closed-set! port f) (%wordblock-set!/immediate port 8 f))
    744 (define-inline (%port-data-set! port port) (%wordblock-set!/mutate port 9 x))
     744(define-inline (%port-data-set! port x) (%wordblock-set!/mutate port 9 x))
    745745
    746746(define-inline (%make-port i/o class name type)
     
    903903(define-inline (%pointer->address ptr)
    904904  ; Pack pointer address value into Chicken words; '4' is platform dependent!
    905   (##core#inline_allocate ("C_block_address" 4) (%generic-pointer-ref x)) )
     905  (##core#inline_allocate ("C_block_address" 4) (%generic-pointer-ref ptr)) )
    906906
    907907;; Simple-pointer (wordblock)
     
    975975(define-inline (%positive? n) (##core#inline "C_i_positivep" n))
    976976(define-inline (%negative? n) (##core#inline "C_i_negativep" n))
    977 (define-inline (%cardinal? n) (and (%integer? x) (%<= 0 n)))
     977(define-inline (%cardinal? n) (and (%integer? n) (%<= 0 n)))
    978978(define-inline (%odd? n) (##core#inline "C_i_oddp" n))
    979979(define-inline (%even? n) (##core#inline "C_i_evenp" n))
Note: See TracChangeset for help on using the changeset viewer.