version 1.180, 2011/10/07 21:46:57
|
version 1.181, 2011/11/11 18:29:10
|
Line 898 max-errors /error * cells allot
|
Line 898 max-errors /error * cells allot
|
|
|
: input-error-data ( -- c-addr1 u1 c-addr2 u2 line# [addr u] ) |
: input-error-data ( -- c-addr1 u1 c-addr2 u2 line# [addr u] ) |
\ error data for the current input, to be used by >error or .error-frame |
\ error data for the current input, to be used by >error or .error-frame |
source input-lexeme 2@ sourceline# |
source over >r save-mem over r> - |
|
input-lexeme 2@ >r + r> sourceline# |
[ has? file [IF] ] sourcefilename [ [THEN] ] ; |
[ has? file [IF] ] sourcefilename [ [THEN] ] ; |
|
|
: dec. ( n -- ) \ gforth |
: dec. ( n -- ) \ gforth |