 [ ] [ callstack set-callstack ] unit-test
 
 [ 3drop datastack ] unit-test-fails
+[ ] [ :c ] unit-test

USING: arrays byte-arrays kernel kernel.private math memory
namespaces sequences tools.test math.private quotations
continuations prettyprint io.streams.string ;
IN: temporary

[ 0 ] [ f size ] unit-test

[ 6 ] [ f 6 or ] unit-test

[ slip ] unit-test-fails
[ ] [ :c ] unit-test

[ 1 slip ] unit-test-fails
[ ] [ :c ] unit-test

[ 1 2 slip ] unit-test-fails
[ ] [ :c ] unit-test

[ 1 2 3 slip ] unit-test-fails
[ ] [ :c ] unit-test


[ 5 ] [ [ 2 2 + ] 1 slip + ] unit-test

