Ignore:
Timestamp:
09/05/08 10:05:55 (13 years ago)
Author:
felix winkelmann
Message:

replaced primitives used by synrules to avoid primitive-renaming problem

File:
1 edited

Legend:

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

    r11892 r11903  
    187187    ##sys#fudge ##sys#immediate? ##sys#direct-return ##sys#context-switch
    188188    ##sys#make-structure ##sys#apply ##sys#apply-values ##sys#continuation-graft
    189     ##sys#bytevector? ##sys#make-vector ##sys#setter
     189    ##sys#bytevector? ##sys#make-vector ##sys#setter ##sys#car ##sys#cdr ##sys#pair?
     190    ##sys#eq? ##sys#list? ##sys#vector?
    190191    ##sys#foreign-char-argument ##sys#foreign-fixnum-argument ##sys#foreign-flonum-argument
    191192    ##sys#foreign-block-argument ##sys#foreign-number-vector-argument
     
    471472
    472473  (rewrite-c..r 'car "C_i_car" "C_u_i_car" 0)
     474  (rewrite-c..r '##sys#car "C_i_car" "C_u_i_car" 0)
     475  (rewrite-c..r '##sys#cdr "C_i_cdr" "C_u_i_cdr" 0)
    473476  (rewrite-c..r 'cadr "C_i_cadr" "C_u_i_cadr" 1)
    474477  (rewrite-c..r 'caddr "C_i_caddr" "C_u_i_caddr" 2)
     
    563566
    564567(rewrite 'eq? 1 2 "C_eqp")
     568(rewrite '##sys#eq? 1 2 "C_eqp")
    565569(rewrite 'eqv? 1 2 "C_i_eqvp")
    566570
     
    568572(rewrite 'list-ref 2 2 "C_i_list_ref" #t "C_i_vector_ref")
    569573(rewrite 'null? 2 1 "C_i_nullp" #t "C_vemptyp")
     574(rewrite '##sys#null? 2 1 "C_i_nullp" #t "C_vemptyp")
    570575(rewrite 'length 2 1 "C_i_length" #t "C_block_size")
    571576(rewrite 'not 2 1 "C_i_not" #t #f)
     
    575580(rewrite 'symbol? 2 1 "C_i_symbolp" #t #f)
    576581(rewrite 'vector? 2 1 "C_i_vectorp" #t #f)
     582(rewrite '##sys#vector? 2 1 "C_i_vectorp" #t #f)
    577583(rewrite 'pair? 2 1 "C_i_pairp" #t "C_notvemptyp")
     584(rewrite '##sys#pair? 2 1 "C_i_pairp" #t "C_notvemptyp")
    578585(rewrite 'procedure? 2 1 "C_i_closurep" #t #f)
    579586(rewrite 'port? 2 1 "C_i_portp" #t #f)
     
    701708
    702709(rewrite 'vector-length 2 1 "C_i_vector_length" #t #f)
     710(rewrite '##sys#vector-length 2 1 "C_i_vector_length" #t #f)
    703711(rewrite 'string-length 2 1 "C_i_string_length" #t #f)
    704712(rewrite 'inexact->exact 2 1 "C_i_inexact_to_exact" #t #f)
     
    744752(rewrite 'vector-set! 11 3 '##sys#setslot #f)
    745753(rewrite 'vector-set! 2 3 "C_i_vector_set" #t #f)
     754
     755(rewrite '##sys#vector->list 11 1 'vector->list #t)
     756(rewrite '##sys#list->vector 11 1 'list->vector #t)
     757(rewrite '##sys#>= 11 2 '>= #t)
     758(rewrite '##sys#= 11 2 '= #t)
    746759
    747760(rewrite 'gcd 12 '##sys#gcd #t 2)
Note: See TracChangeset for help on using the changeset viewer.