aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/tracer.frt
blob: 9c3536ebe537d41158175c618b1b6605de5cb4ae (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
\ tracer Emma Ledwidge's and Gerry
\ flag to dynamically turn trace output
\ on and off
variable tracing?
: trace:on -1 tracing? ! ;
: trace:off 0 tracing? ! ;

: tracer tracing? @ if cr itype space .s else 2drop then ; 

: : >in @ >r : r> >in ! 
    parse-name postpone sliteral postpone tracer
;