aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/find-name.frt
blob: df40185ff8b64645a80f1104192a15cb873bfcd8 (plain)
1
2
3
4
5
6
7
8
9
10

\ #require search-name.frt

: (find-name) ( addr len wid -- addr len 0 | nt -1 )
  >r 2dup r> search-name dup if nip nip then ;
 
: find-name ( addr len --  nt|0 ) 
  ['] (find-name) cfg-order map-stack
  dup 0= if nip nip then
;