Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-27 21:58:35 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixed a bug

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-05 10:00:16 +09:00
parent 051fd0eb2f
commit d15eda8a11
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
bootstrap.fs
View file

@ -1228,7 +1228,7 @@ s" -256" >number drop next-user-error !
\ Create new user defined error and returns error code. \ Create new user defined error and returns error code.
: exception ( c-addr -- n ) : exception ( c-addr -- n )
next-user-error @ -rot add-error next-user-error @ swap add-error
next-user-error @ next-user-error @
1 next-user-error -! 1 next-user-error -!
; ;