From: Tim Vaughan <tgvaughan@gmail.com>
Date: Thu, 11 Jan 2018 02:56:19 +0000 (+1100)
Subject: Removed broken return stack restore implementation.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=db8b19176dacb8d9b82559864c1a071d1c1bf452;p=scheme.forth.jl.git

Removed broken return stack restore implementation.
---

diff --git a/src/scheme.4th b/src/scheme.4th
index a360b47..135bdab 100644
--- a/src/scheme.4th
+++ b/src/scheme.4th
@@ -589,26 +589,13 @@ global-env obj!
 ;
 
 : restore-return-stack ( continuation -- )
-    R> \ store top of return stack on PS
-    continuation->rstack-list
-    2dup >R >R
-
-    ( Allocate stack space first using rsp!,
-      then copy objects from list. )
 
-    car drop
-    rsp0 + rsp!
+    R> -rot \ store top of return stack on PS
+    continuation->rstack-list
+    2dup print 2dup
 
-    R> R> 2dup cdr
-    2swap
-    car drop 0 swap do
-        2dup car drop
-        rsp0 i + 1 + !
-        cdr
-    1- +loop
+    \ TODO: Implement body of return stack restoration
 
-    2drop
-    trace
     >R \ restore original top of return stack
 ;
 
@@ -618,6 +605,10 @@ global-env obj!
 
     2dup >R >R
     restore-param-stack
+
+    ." ====== PARAM STACK RESTORED ======" cr
+    trace
+    
     R> R>
     restore-return-stack
 ;
@@ -2152,6 +2143,7 @@ parse-idx-stack parse-idx-sp !
 
 \ }}}
 
+\ DEBUGGING
 xxxx
 
 \ ---- Loading files ---- {{{