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

Move comments in a wrong place

Browse source
This commit is contained in:
Koichi Nakamura 2021-05-07 18:55:29 +09:00
parent 49c66d645a
commit 4337cedd5f
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/core.fs
View file

@ -1,9 +1,6 @@
\ planckforth - \ planckforth -
\ Copyright (C) 2021 nineties \ Copyright (C) 2021 nineties
\ test/tester.fs and test codes are base on
\ https://github.com/gerryjackson/forth2012-test-suite
defined? roll [unless] 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 dup 0<= if drop else swap >r 1- recurse r> swap then

3
lib/tester.fs
View file

@ -1,6 +1,9 @@
\ planckforth - \ planckforth -
\ Copyright (C) 2021 nineties \ Copyright (C) 2021 nineties
\ test/tester.fs and test codes are base on
\ https://github.com/gerryjackson/forth2012-test-suite
variable verbose variable verbose
\ true verbose ! \ true verbose !
false verbose ! false verbose !