blob: 9a59e27b70aff3339fde2c76ced22c7212e927dc (
plain)
1
2
3
4
5
6
7
8
9
10
|
o<prepare> sub
(debug, prepare call_level= #<_call_level> remap_level=#<_remap_level> tool=#<tool> pocket=#<pocket>)
; show aborting a prepare on tool 2 by returning a negative value
o<testabort> if [#<tool> EQ 2]
o<testabort> return [-1]
o<testabort> endif
o<prepare> endsub [#<pocket>]
m2
|
