| : |line s" tr" >env table# off ; |
: |line s" tr" >env table# off ; |
| : line| -env -env cr ; |
: line| -env -env cr ; |
| |
|
| |
: next-char ( -- char ) source drop >in @ + c@ ; |
| |
|
| longtags set-current |
longtags set-current |
| |
|
| : <| s" table" >env bl sword table-format $! ; |
: <| s" table" >env bl sword table-format $! ; |
| : |> -env ; |
: |> -env ; |
| : +| |line |
: +| |line |
| BEGIN |
BEGIN |
| |h '| parse-to char? '+ = UNTIL line| ; |
|h '| parse-to next-char '+ = UNTIL line| ; |
| : -| |line |
: -| |line |
| BEGIN |
BEGIN |
| |d '| parse-to char? '- = UNTIL line| ; |
|d '| parse-to next-char '- = UNTIL line| ; |
| |
|
| definitions |
definitions |
| |
|
