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

Add lib/core.fs

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-13 19:29:46 +09:00
parent a78b646597
commit 92b7f456f6
2 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
bootstrap.fs
View file

@ -2562,6 +2562,7 @@ need-defined (read)
then then
; execute
include lib/core.fs
:noname
rdrop

11
lib/core.fs Normal file
View file

@ -0,0 +1,11 @@
\ planckforth -
\ Copyright (C) 2021 nineties
\ test/tester.fs and test codes are base on
\ https://github.com/gerryjackson/forth2012-test-suite
defined? roll [unless]
: roll ( wn ... w1 n -- w1 wn ... w2 -- )
dup 0<= if drop else swap >r 1- recurse r> swap then
;
[then]