diff --git a/bootstrap.fs b/bootstrap.fs index d9b0f6c..0c25e46 100644 --- a/bootstrap.fs +++ b/bootstrap.fs @@ -1301,6 +1301,16 @@ create word-buffer s" 64" >number drop cell+ allot drop main +( === Error-codes === ) + +decimal +-1 s" Aborted" def-error ABORTED-ERROR +-39 s" Unexpected end of file" def-error UNEXPECTED-EOF-ERROR +-68 s" FLUSH-FILE" def-error FLUSH-FILE-ERROR +-70 s" READ-FILE" def-error READ-FILE-ERROR +-71 s" READ-LINE" def-error READ-LINE-ERROR +-75 s" WRITE-FILE" def-error WRITE-FILE-ERROR + ( === Dump of data stack === ) : .s ( -- ) sp0 sp@ - cell- cell / ( depth of the stack ) @@ -1356,13 +1366,6 @@ main ( === File I/O Abstraction === ) -decimal --39 s" Unexpected end of file" def-error UNEXPECTED-EOF-ERROR --68 s" FLUSH-FILE" def-error FLUSH-FILE-ERROR --70 s" READ-FILE" def-error READ-FILE-ERROR --71 s" READ-LINE" def-error READ-LINE-ERROR --75 s" WRITE-FILE" def-error WRITE-FILE-ERROR - -1 constant EOF \ file access methods (fam)