aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/forth2012/tools/defined.frt
blob: cef7e7857a092bb032209431b1efe7d2a8a70e50 (plain)
1
2
3
4
5
6
7
8
9
10

\ http://www.forth200x.org/defined.html
\ adapted to non-counted strings

: [defined] parse-name find-name dup if swap drop then ; immediate
: [undefined] postpone [defined] 0= ; immediate

\ ... and without postpone (Enoch, Feb-2013)
\ : [defined] parse-name find-name if drop -1 else 0 then ; immediate
\ : [undefined] parse-name find-name if drop 0 else -1 then ; immediate