aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/forth2012/core-ext/exceptions.frt
blob: ec175a067414795a41042a8dd18e3a617fe57fa9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
\ ******************************************
\ some exceptions 
\ ******************************************

: ?throw ( f exc -- )
   swap if throw then drop
;
  
: ?comp  ( -- )
    state @ 0= -&14 ?throw
;

: ?pairs ( n1 n2 -- ) 
    - -&22 ?throw 
;