 
 ! ! See how well callstack overflow is handled
 ! [ clear drop ] must-fail
-!
+! 
 ! : callstack-overflow callstack-overflow f ;
 ! [ callstack-overflow ] must-fail
 

USING: kernel math namespaces io tools.test sequences vectors
continuations debugger parser memory arrays words
kernel.private accessors eval splitting ;
IN: continuations.tests

: (callcc1-test) ( n obj -- n' obj )

    "Hello" =
] unit-test

"!!! The following error is part of the test" print

[ ] [ [ 6 [ 12 [ "2 car" ] ] ] print-error ] unit-test
