-\ :noname ( args -- result )
-\ 2dup car 2swap cdr
-\
-\ nil? false = if car then ( proc argvals )
-\
-\ apply
-\ ; make-primitive apply
+:noname ( args -- result )
+ 2dup car 2swap cdr
+
+ nil? false = if car then ( proc argvals )
+
+ 2swap apply
+; make-primitive apply
+
+: make-continuation
+ \ TODO: Capture parameter and return stacks in continuation
+;
+
+:noname ( args -- result )
+ make-continuation nil cons
+ 2swap apply
+
+; 1 make-fa-primitive call-with-current-continuation