Hi,
Can marker be fixed?
Thanks, Enoch.
(AT90CAN128)> #include marker.frt
|D=#include marker.frt
|I=getting filenames on the host
|I= Reading .
|I= Reading ../../lib
|I=using marker.frt from/home/enoch/private/iobcan/amforth/lib/ans94/core-ext
**** /home/enoch/private/iobcan/amforth/appl/avr-can
|I=getting MCU name..
|I=successfully loaded register definitions for at90can128
|F=/home/enoch/private/iobcan/amforth/lib/ans94/core-ext/marker.frt
|C| 1|\ defines a word which resets the dictionary when called
|C| 2|\ better then forget but has still limitations
|W| 3|
|W| 4|
|S| 5|: marker ( c<chars> -- )
|S| 6| get-order
|S| 7| get-current dup @e
|S| 8| dp
|S| 9| edp
|S| 10| here
|C| 11| \ maybe save turnkey as well
|S| 12| create
|S| 13| , , , , ,
|C| 14| \ for save the search order wordlists
|S| 15| dup ,
|S| 16| 0 ?do
|S| 17| dup ,
|S| 18| @e ,
|S| 19| loop
|S| 20| does>
|S| 21| dup @i to here
|S| 22| 1+ dup @i to edp
|S| 23| 1+ dup @i to dp
|S| 24| 1+ dup @i swap 1+ dup @i swap >r
|S| 25| swap over !e set-current
|E=set-current ?? -13 24
**** /home/enoch/private/iobcan/amforth/lib/ans94/core-ext
Error: Error in line sent
|
