The Lambda Lab
/
projects
/
scheme.forth.jl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed cons, set-car! and set-cdr!
[scheme.forth.jl.git]
/
scheme-primitives.4th
diff --git
a/scheme-primitives.4th
b/scheme-primitives.4th
index
c1f3626
..
87cbdd4
100644
(file)
--- a/
scheme-primitives.4th
+++ b/
scheme-primitives.4th
@@
-221,14
+221,6
@@
cons
; make-primitive cons
cons
; make-primitive cons
-:noname ( args -- pair )
- 2dup 1 ensure-arg-count
-
-
- 2dup car 2swap cdr car
- cons
-; make-primitive cons
-
:noname ( args -- pair )
2dup 1 ensure-arg-count
car pair-type ensure-arg-type
:noname ( args -- pair )
2dup 1 ensure-arg-count
car pair-type ensure-arg-type
@@
-245,20
+237,20
@@
:noname ( args -- pair )
2dup 2 ensure-arg-count
:noname ( args -- pair )
2dup 2 ensure-arg-count
- 2dup c
ar pair-type ensure-arg-type
- swap cdr car
+ 2dup c
dr car
+ 2swap car pair-type ensure-arg-type
-
2swap
set-car!
+ set-car!
ok-symbol
; make-primitive set-car!
:noname ( args -- pair )
2dup 2 ensure-arg-count
ok-symbol
; make-primitive set-car!
:noname ( args -- pair )
2dup 2 ensure-arg-count
- 2dup c
ar pair-type ensure-arg-type
- swap cdr car
+ 2dup c
dr car
+ 2swap car pair-type ensure-arg-type
-
2swap
set-cdr!
+ set-cdr!
ok-symbol
; make-primitive set-cdr!
ok-symbol
; make-primitive set-cdr!