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

Move OUT-OF-RANGE from lib/array.fs to lib/core.fs

Browse source
This commit is contained in:
Koichi Nakamura 2021-12-08 07:42:38 +09:00
parent 8a3d114ae5
commit 0710e59677
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/array.fs
View file

@ -5,7 +5,6 @@
private{ private{
( === Allocation strategy === )
defined? array-alloc-strategy [unless] defined? array-alloc-strategy [unless]
\ Compute new capacity \ Compute new capacity
@ -21,8 +20,6 @@ struct
int% field array>capa int% field array>capa
end-struct array% end-struct array%
s" Index out of range" exception constant OUT-OF-RANGE export
\ Allocate array with capacity \ Allocate array with capacity
: allocate-array ( n capa -- arr ) : allocate-array ( n capa -- arr )
array% %allocate throw array% %allocate throw

3
lib/core.fs
View file

@ -16,6 +16,9 @@ s" Invalid argument" exception constant INVALID-ARGUMENT
unless INVALID-ARGUMENT throw then unless INVALID-ARGUMENT throw then
; ;
( === Builtin Exceptions === )
s" Index out of range" exception constant OUT-OF-RANGE export
defined? roll [unless] defined? roll [unless]
: roll ( w[n-1] ... w0 n -- w0 w[n-2] ... w0 w[n-1] ) : 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