Changeset 11919 in project


Ignore:
Timestamp:
09/07/08 22:41:59 (12 years ago)
Author:
felix winkelmann
Message:

case macro uses qualified version if eqv?

Location:
chicken/branches/hygienic
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/hygienic/c-platform.scm

    r11903 r11919  
    188188    ##sys#make-structure ##sys#apply ##sys#apply-values ##sys#continuation-graft
    189189    ##sys#bytevector? ##sys#make-vector ##sys#setter ##sys#car ##sys#cdr ##sys#pair?
    190     ##sys#eq? ##sys#list? ##sys#vector?
     190    ##sys#eq? ##sys#list? ##sys#vector? ##sys#eqv?
    191191    ##sys#foreign-char-argument ##sys#foreign-fixnum-argument ##sys#foreign-flonum-argument
    192192    ##sys#foreign-block-argument ##sys#foreign-number-vector-argument
     
    568568(rewrite '##sys#eq? 1 2 "C_eqp")
    569569(rewrite 'eqv? 1 2 "C_i_eqvp")
     570(rewrite '##sys#eqv? 1 2 "C_i_eqvp")
    570571
    571572(rewrite 'list-ref 2 2 "C_u_i_list_ref" #f "C_slot")
  • chicken/branches/hygienic/expand.scm

    r11842 r11919  
    982982            (%if (r 'if))
    983983            (%or (r 'or))
    984             (%eqv? (r 'eqv?))
     984            (%eqv? '##sys#eqv?)
    985985            (%else (r 'else)))
    986986        `(let ((,tmp ,exp))
  • chicken/branches/hygienic/library.scm

    r11903 r11919  
    42914291(define ##sys#+ +)
    42924292(define ##sys#eq? eq?)
     4293(define ##sys#eqv? eqv?)
    42934294(define ##sys#list? list?)
    42944295(define ##sys#null? null?)
Note: See TracChangeset for help on using the changeset viewer.