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

\ print the names of the current recognizer stack

#require to-name.frt

: .recs
   get-recognizers 0 ?do
     >name icount $ff and itype space
   loop
;