Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2025-01-13 08:01:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Redefine compilers using word which uses inputstream

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-05 21:46:49 +09:00
parent dd1ad8d1f7
commit 921a5f8a23
1 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
bootstrap.fs
View file

@ -1555,7 +1555,21 @@ stdin_ push-inputstream
again
;
: ' ( "name" -- xt ) word throw find >cfa ;
: ' ( "name" -- xt )
word throw
find ?dup if
>cfa
else
UNDEFINED-WORD-ERROR throw
then
;
: [compile] ' , ; immediate
: compile-helper
[compile] literal
[ ' , ] literal ,
;
: compile ' compile-helper ; immediate
: ['] ' [compile] literal ; immediate
: : ( "name -- )
align