Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15: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?
eqv?
equal?
assoc
assq
assv
memq
memv
member
;assoc
;assq
;assv
;memq
;memv
;member
length
set-car!
set-cdr!
@ -200,12 +200,12 @@
(eq? 2 2)
(eqv? 2 2)
(equal? 2 2)
(assoc 2 2)
(assq 2 2)
(assv 2 2)
(memq 2 2)
(memv 2 2)
(member 2 2)
;(assoc 2 2)
;(assq 2 2)
;(assv 2 2)
;(memq 2 2)
;(memv 2 2)
;(member 2 2)
(length 1 1)
(set-car! 2 2)
(set-cdr! 2 2)
@ -491,12 +491,12 @@
((eq? p 'Cyc-compilation-environment) "Cyc_compilation_environment")
((eq? p 'command-line-arguments) "Cyc_command_line_arguments")
((eq? p 'system) "Cyc_system")
((eq? p 'assq) "assq")
((eq? p 'assv) "assq")
((eq? p 'assoc) "assoc")
((eq? p 'memq) "memqp")
((eq? p 'memv) "memqp")
((eq? p 'member) "memberp")
;((eq? p 'assq) "assq")
;((eq? p 'assv) "assq")
;((eq? p 'assoc) "assoc")
;((eq? p 'memq) "memqp")
;((eq? p 'memv) "memqp")
;((eq? p 'member) "memberp")
((eq? p 'length) "Cyc_length")
((eq? p 'set-car!) "Cyc_set_car")
((eq? p 'set-cdr!) "Cyc_set_cdr")
@ -589,12 +589,12 @@
Cyc-installation-dir
Cyc-compilation-environment
command-line-arguments
assq
assv
assoc
memq
memv
member
;assq
;assv
;assoc
;memq
;memv
;member
length
set-car!
set-cdr!

12
scheme/eval.sld
View file

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