started implementing call-with-current-continuation

2014-01-26 16:15:28 +00:00
parent 4208d8f2df
commit 11143203af
5 changed files with 140 additions and 28 deletions
--- a/lib/h2-scheme-execute-evaluate.adb
+++ b/lib/h2-scheme-execute-evaluate.adb
@ -328,6 +328,9 @@ Ada.Text_IO.Put_Line ("NO ALTERNATE");
 		--   y ; 11 
 		--   x ; 10
 		--    
+		-- #3.
+		--   (define x (let ((x x)) x))
+		--    

 		if Car /= Nil_Pointer then
 			-- <bindings> is not empty