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

fixed a bug

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-04 23:00:16 +09:00
parent e46dd0994a
commit afa21387f1
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
bootstrap.fs
View file

@ -1131,7 +1131,7 @@ decimal \ set default to decimal
: strcpy, : strcpy,
begin dup c@ dup while begin dup c@ dup while
c, 1+ c, 1+
repeat drop repeat 2drop
0 c, 0 c,
; ;
@ -1203,9 +1203,10 @@ variable error-list
: add-error ( n c-addr -- ) : add-error ( n c-addr -- )
error-list here error-list here
( n c-addr )
over @ , \ fill link over @ , \ fill link
swap ! \ update error-list swap ! \ update error-list
rot , \ fill error-code swap , \ fill error-code
strcpy, \ fill message strcpy, \ fill message
; ;