aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/forth2012/file/paren.frt
blob: 24c8460b82f9b9184fb12ba44d6aacbe842daf2a (plain)
1
2
3
4
5
6
7
8
9
10
11
\ redefine (, still buggy
: (
   begin
     >in @ [char] ) parse nip
     >in @ rot - = \ something found?
   while
       refill 0=
       if
        abort" refill while searching ) failed"
       then
   repeat ; immediate