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

minor fix

Browse source
This commit is contained in:
Koichi Nakamura 2021-12-04 06:26:35 +09:00
parent a1fa748e98
commit 6f2a1f17ee
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/core.fs
View file

@ -2,7 +2,7 @@
\ Copyright (C) 2021 nineties
defined? roll [unless]
: roll ( wn ... w1 n -- w1 wn ... w2 -- )
: roll ( wn ... w1 n -- w1 wn ... w2 )
dup 0<= if drop else swap >r 1- recurse r> swap then
;
[then]