Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-25 21:58:22 +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 09:18:53 +09:00
parent 410a5c2ed0
commit f1b92c39d7
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
bootstrap.fs
View file

@ -1157,12 +1157,13 @@ char 0 char B - constant STRING-OVERFLOW-ERROR \ -18
state @ if
compile litstring
here 0 , \ save location of length and fill dummy
0 \ length of the string
0 \ length of the string + 1 (\0)
begin key dup '"' <> while
c, \ store character
1+ \ increment length
repeat drop
0 c, \ store \0
1+
swap ! \ back-fill length
align
else