Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 13:05:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove member/assoc primitives

Browse source
This commit is contained in:
Justin Ethier 2016-08-20 02:32:16 -04:00
parent 973ce046f5
commit 5ce09c6698
2 changed files with 30 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

48
scheme/cyclone/primitives.sld
View file

@ -83,12 +83,12 @@
eq? eq?
eqv? eqv?
equal? equal?
assoc ;assoc
assq ;assq
assv ;assv
memq ;memq
memv ;memv
member ;member
length length
set-car! set-car!
set-cdr! set-cdr!
@ -200,12 +200,12 @@
(eq? 2 2) (eq? 2 2)
(eqv? 2 2) (eqv? 2 2)
(equal? 2 2) (equal? 2 2)
(assoc 2 2) ;(assoc 2 2)
(assq 2 2) ;(assq 2 2)
(assv 2 2) ;(assv 2 2)
(memq 2 2) ;(memq 2 2)
(memv 2 2) ;(memv 2 2)
(member 2 2) ;(member 2 2)
(length 1 1) (length 1 1)
(set-car! 2 2) (set-car! 2 2)
(set-cdr! 2 2) (set-cdr! 2 2)
@ -491,12 +491,12 @@
((eq? p 'Cyc-compilation-environment) "Cyc_compilation_environment") ((eq? p 'Cyc-compilation-environment) "Cyc_compilation_environment")
((eq? p 'command-line-arguments) "Cyc_command_line_arguments") ((eq? p 'command-line-arguments) "Cyc_command_line_arguments")
((eq? p 'system) "Cyc_system") ((eq? p 'system) "Cyc_system")
((eq? p 'assq) "assq") ;((eq? p 'assq) "assq")
((eq? p 'assv) "assq") ;((eq? p 'assv) "assq")
((eq? p 'assoc) "assoc") ;((eq? p 'assoc) "assoc")
((eq? p 'memq) "memqp") ;((eq? p 'memq) "memqp")
((eq? p 'memv) "memqp") ;((eq? p 'memv) "memqp")
((eq? p 'member) "memberp") ;((eq? p 'member) "memberp")
((eq? p 'length) "Cyc_length") ((eq? p 'length) "Cyc_length")
((eq? p 'set-car!) "Cyc_set_car") ((eq? p 'set-car!) "Cyc_set_car")
((eq? p 'set-cdr!) "Cyc_set_cdr") ((eq? p 'set-cdr!) "Cyc_set_cdr")
@ -589,12 +589,12 @@
Cyc-installation-dir Cyc-installation-dir
Cyc-compilation-environment Cyc-compilation-environment
command-line-arguments command-line-arguments
assq ;assq
assv ;assv
assoc ;assoc
memq ;memq
memv ;memv
member ;member
length length
set-car! set-car!
set-cdr! set-cdr!

12
scheme/eval.sld
View file

@ -195,12 +195,12 @@
(list 'eq? eq?) (list 'eq? eq?)
(list 'eqv? eqv?) (list 'eqv? eqv?)
(list 'equal? equal?) (list 'equal? equal?)
(list 'assoc assoc) ;(list 'assoc assoc)
(list 'assq assq) ;(list 'assq assq)
(list 'assv assv) ;(list 'assv assv)
(list 'memq memq) ;(list 'memq memq)
(list 'memv memv) ;(list 'memv memv)
(list 'member member) ;(list 'member member)
(list 'length length) (list 'length length)
(list 'set-car! set-car!) (list 'set-car! set-car!)
(list 'set-cdr! set-cdr!) (list 'set-cdr! set-cdr!)