USING: kernel math namespaces io tools.test sequences vectors
continuations debugger parser memory arrays words
-kernel.private accessors eval ;
+kernel.private accessors eval splitting ;
IN: continuations.tests
: (callcc1-test) ( n obj -- n' obj )
"Hello" =
] unit-test
+! #1187
+[ ] [
+ minor-gc [ split-slice ] ignore-errors minor-gc
+] unit-test
+
"!!! The following error is part of the test" print
[ ] [ [ 6 [ 12 [ "2 car" ] ] ] print-error ] unit-test
! ! See how well callstack overflow is handled
! [ clear drop ] must-fail
-!
+!
! : callstack-overflow callstack-overflow f ;
! [ callstack-overflow ] must-fail