|
version 1.5, 1998/12/11 22:54:31
|
version 1.7, 1999/05/17 15:07:02
|
|
Line 22
|
Line 22
|
| \ The errors are defined by a linked list, for easy adding |
\ The errors are defined by a linked list, for easy adding |
| \ and deleting. Speed is not neccassary at this point. |
\ and deleting. Speed is not neccassary at this point. |
| |
|
| |
require ./io.fs |
| |
require ./nio.fs |
| |
|
| AVariable ErrLink \ Linked list entry point |
AVariable ErrLink \ Linked list entry point |
| NIL ErrLink ! |
NIL ErrLink ! |
| |
|
|
Line 44 has? OS [IF]
|
Line 47 has? OS [IF]
|
| |
|
| : .error ( n -- ) |
: .error ( n -- ) |
| >stderr |
>stderr |
| cr ." Error: " |
|
| ErrLink |
ErrLink |
| BEGIN @ dup |
BEGIN @ dup |
| WHILE |
WHILE |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to errore.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel