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
 
-: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
@@ -245,20 +237,20 @@
 
 :noname ( args -- pair )
     2dup 2 ensure-arg-count
-    2dup car pair-type ensure-arg-type
-    swap cdr car
+    2dup cdr 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
-    2dup car pair-type ensure-arg-type
-    swap cdr car
+    2dup cdr car
+    2swap car pair-type ensure-arg-type
 
-    2swap set-cdr!
+    set-cdr!
 
     ok-symbol
 ; make-primitive set-cdr!