+( This word restores the parameter and return stacks
+to those in the continuation object. The restoration of the
+return stack means that execution continues at the point
+described in the continuation object, so this word NEVER RETURNS.
+
+Note that both obj and a false-obj are added to the parameter
+stack before the return stack is restored, so that make-continuation
+knows that this execution path is the result of a continuation
+restoration rather than the original call to make-continuation. )
+: restore-continuation-with-arg ( continuation obj -- )
+
+ >R >R \ Store obj on return stack
+
+ 2dup >R >R \ Store copy of continuation on return stack
+
+ restore-param-stack
+
+ R> R> \ Pop continuation from return stack
+
+ R> R> \ Pop obj from return stack
+
+ 2swap
+
+ false boolean-type \ Add flag signifying continuation restore
+
+ 2swap
+
+ restore-return-stack