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

Fixed a bug of shift-args

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-05 21:34:16 +09:00
parent f71413d42b
commit 6e30c23cce
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

@ -1791,12 +1791,12 @@ v argc ! argv !
\ Remove 1 arg, update argv and argc
: shift-args ( -- )
argc @ 1 = if exit then
1 argc -!
argc @ 1 do
i 1+ arg \ argv[i+1]
i cells argv @ + \ &argv[i]
! \ copy argv[i+1] to argv[i]
loop
1 argc -!
;
\ Take 1 arg and shift arguments