11 lines
303 B
Plaintext
11 lines
303 B
Plaintext
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
|