Changeset 11903 in project for chicken/branches/hygienic/cplatform.scm
 Timestamp:
 09/05/08 10:05:55 (13 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

chicken/branches/hygienic/cplatform.scm
r11892 r11903 187 187 ##sys#fudge ##sys#immediate? ##sys#directreturn ##sys#contextswitch 188 188 ##sys#makestructure ##sys#apply ##sys#applyvalues ##sys#continuationgraft 189 ##sys#bytevector? ##sys#makevector ##sys#setter 189 ##sys#bytevector? ##sys#makevector ##sys#setter ##sys#car ##sys#cdr ##sys#pair? 190 ##sys#eq? ##sys#list? ##sys#vector? 190 191 ##sys#foreigncharargument ##sys#foreignfixnumargument ##sys#foreignflonumargument 191 192 ##sys#foreignblockargument ##sys#foreignnumbervectorargument … … 471 472 472 473 (rewritec..r 'car "C_i_car" "C_u_i_car" 0) 474 (rewritec..r '##sys#car "C_i_car" "C_u_i_car" 0) 475 (rewritec..r '##sys#cdr "C_i_cdr" "C_u_i_cdr" 0) 473 476 (rewritec..r 'cadr "C_i_cadr" "C_u_i_cadr" 1) 474 477 (rewritec..r 'caddr "C_i_caddr" "C_u_i_caddr" 2) … … 563 566 564 567 (rewrite 'eq? 1 2 "C_eqp") 568 (rewrite '##sys#eq? 1 2 "C_eqp") 565 569 (rewrite 'eqv? 1 2 "C_i_eqvp") 566 570 … … 568 572 (rewrite 'listref 2 2 "C_i_list_ref" #t "C_i_vector_ref") 569 573 (rewrite 'null? 2 1 "C_i_nullp" #t "C_vemptyp") 574 (rewrite '##sys#null? 2 1 "C_i_nullp" #t "C_vemptyp") 570 575 (rewrite 'length 2 1 "C_i_length" #t "C_block_size") 571 576 (rewrite 'not 2 1 "C_i_not" #t #f) … … 575 580 (rewrite 'symbol? 2 1 "C_i_symbolp" #t #f) 576 581 (rewrite 'vector? 2 1 "C_i_vectorp" #t #f) 582 (rewrite '##sys#vector? 2 1 "C_i_vectorp" #t #f) 577 583 (rewrite 'pair? 2 1 "C_i_pairp" #t "C_notvemptyp") 584 (rewrite '##sys#pair? 2 1 "C_i_pairp" #t "C_notvemptyp") 578 585 (rewrite 'procedure? 2 1 "C_i_closurep" #t #f) 579 586 (rewrite 'port? 2 1 "C_i_portp" #t #f) … … 701 708 702 709 (rewrite 'vectorlength 2 1 "C_i_vector_length" #t #f) 710 (rewrite '##sys#vectorlength 2 1 "C_i_vector_length" #t #f) 703 711 (rewrite 'stringlength 2 1 "C_i_string_length" #t #f) 704 712 (rewrite 'inexact>exact 2 1 "C_i_inexact_to_exact" #t #f) … … 744 752 (rewrite 'vectorset! 11 3 '##sys#setslot #f) 745 753 (rewrite 'vectorset! 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) 746 759 747 760 (rewrite 'gcd 12 '##sys#gcd #t 2)
Note: See TracChangeset
for help on using the changeset viewer.