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

Remove unnecessary name

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-09 17:20:48 +09:00
parent 0b7363016f
commit 44a011da18
1 changed files with 4 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
bootstrap.fs
View file

@ -1287,7 +1287,7 @@ create word-buffer s" 64" >number drop cell+ allot drop
then
;
: main
:noname
rdrop \ drop 2nd stage
begin
['] interpret catch
@ -1311,9 +1311,7 @@ create word-buffer s" 64" >number drop cell+ allot drop
bye
then
again
;
main
; execute
( === Error-codes === )
@ -1693,13 +1691,11 @@ stdin_ push-inputstream
again
;
: switch-to-4th-stage
:noname
rdrop \ drop 3rd stage
['] interpret-loop catch bye
;
switch-to-4th-stage
; execute
( === [if]..[else]..[then] === )