From 7a7d76ef5449bff091c710531869b7b9eceecadc Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Wed, 1 Aug 2018 12:02:34 +0200 Subject: [PATCH] restore-continuation working. --- src/scheme.4th | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/scheme.4th b/src/scheme.4th index 0dec215..d9c8aa5 100644 --- a/src/scheme.4th +++ b/src/scheme.4th @@ -548,7 +548,7 @@ global-env obj! 2swap cons 2 +loop - depth 2- fixnum-type 2swap cons + depth 2- 2/ fixnum-type 2swap cons ; : make-continuation @@ -575,19 +575,19 @@ global-env obj! ( Allocate stack space first using psp!, then copy objects from list. ) - car drop + car drop 2* object-stack-base @ psp0 + + psp! R> R> 2dup cdr 2swap - car drop 2- 0 swap do + car drop 1- 0 swap do 2dup car - PSP0 object-stack-base @ + i + 2 + ! - PSP0 object-stack-base @ + i + 1 + ! + PSP0 object-stack-base @ + i 2* + 2 + ! + PSP0 object-stack-base @ + i 2* + 1 + ! cdr - -2 +loop + -1 +loop 2drop ; -- 2.20.1