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

fix comment of roll

Browse source
This commit is contained in:
Koichi Nakamura 2021-12-04 19:21:55 +09:00
parent a4e5968359
commit 1238649a4c
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

@ -17,7 +17,7 @@ s" Invalid argument" exception constant INVALID-ARGUMENT
; ;
defined? roll [unless] defined? roll [unless]
: roll ( wn ... w1 n -- w1 wn ... w2 ) : roll ( w[n-1] ... w0 n -- w0 w[n-2] ... w0 w[n-1] )
dup 0<= if drop else swap >r 1- recurse r> swap then dup 0<= if drop else swap >r 1- recurse r> swap then
; ;
[then] [then]