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

Merge pull request #50 from nineties/minor-fix

Browse source 
fix a comment of roll
This commit is contained in:
Koichi NAKAMURA 2022-01-05 06:37:08 +09:00 committed by GitHub
commit 003c9c2fa1
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
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

@ -20,7 +20,7 @@ s" Invalid argument" exception constant INVALID-ARGUMENT
s" Index out of range" exception constant OUT-OF-RANGE export s" Index out of range" exception constant OUT-OF-RANGE export
defined? roll [unless] defined? roll [unless]
: roll ( w[n-1] ... w0 n -- w[n-2] ... w0 w[n-1] ) : roll ( wn ... w0 n -- w[n-1] ... w0 wn )
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]