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

Rename 'w' to 'W'

Browse source
This commit is contained in:
Koichi Nakamura 2020-12-31 14:44:39 +09:00
parent 48449b62a9
commit 384f802c99
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
core.fs
View file

@ -249,7 +249,7 @@ l!
\ Return 1 if c==' ' or c=='\n', 0 otherwise.
cs i, '#, 'L, k , '=, '~, 'L, k:k0-, '=, '|, 'e, l!
\ 'w' ( "<spaces>name" -- c-addr u )
\ 'W' ( "<spaces>name" -- c-addr u )
\ Skip leading spaces (' ' and '\n'),
\ Read name, then return its address and length.
\ The maximum length of the name is 31. The behavior is undefined
@ -260,7 +260,7 @@ cs i, '#, 'L, k , '=, '~, 'L, k:k0-, '=, '|, 'e, l!
\ Allocate buffer of 31bytes or more,
\ push the address for compilation of 'w'
h@ # kOk0-+ h! A
cw~
cW~
i,
\ skip leading spaces
'k, '#, 's, 'J, k4k0-C*, '_, 'j, k0k7-C*,