From 659d7bdec81c23987b40c130008633e18f7001e7 Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Thu, 21 Jul 2016 20:52:17 +1200 Subject: [PATCH] Fixed cons, set-car! and set-cdr! --- scheme-primitives.4th | 20 ++++++-------------- scheme.4th | 1 + 2 files changed, 7 insertions(+), 14 deletions(-) diff --git a/scheme-primitives.4th b/scheme-primitives.4th index c1f3626..87cbdd4 100644 --- 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! diff --git a/scheme.4th b/scheme.4th index 9d86461..ae88b4b 100644 --- a/scheme.4th +++ b/scheme.4th @@ -762,6 +762,7 @@ parse-idx-stack parse-idx-sp ! then eof? if + inc-parse-idx bold fg blue ." Moriturus te saluto." reset-term ." ok" cr quit then -- 2.20.1