Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2025-01-14 08:01:27 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add abort

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-05 21:53:31 +09:00
parent f3acb2f93f
commit 8c0cc0abf8
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
bootstrap.fs
View file

@ -1311,6 +1311,8 @@ decimal
-71 s" READ-LINE" def-error READ-LINE-ERROR -71 s" READ-LINE" def-error READ-LINE-ERROR
-75 s" WRITE-FILE" def-error WRITE-FILE-ERROR -75 s" WRITE-FILE" def-error WRITE-FILE-ERROR
: abort ABORTED-ERROR throw ;
( === Dump of data stack === ) ( === Dump of data stack === )
: .s ( -- ) : .s ( -- )
sp0 sp@ - cell- cell / ( depth of the stack ) sp0 sp@ - cell- cell / ( depth of the stack )
@ -1852,7 +1854,7 @@ variable codegen-target
then then
else else
." Unknown option: " type cr ." Unknown option: " type cr
drop ABORTED-ERROR throw abort
then then
repeat repeat
; ;