Miroirs/fcl
1
0
Fork 0
mirror of https://github.com/zeroflag/fcl.git synced 2025-01-12 20:01:25 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

formating

Browse source
This commit is contained in:
zeroflag 2021-06-30 14:53:42 +02:00
parent 62be7a78f1
commit 65fc536e01
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/main/res/raw/core.forth
View file

@ -55,11 +55,8 @@ var: exit.prim ( primitive exit - in case some word needs to override )
` exit exit.prim ! ` exit exit.prim !
: nop ; : nop ;
: defer: : defer: word create
word create ['] lit , ['] nop ,
['] lit , ['] exec , ['] exit , ;
['] nop ,
['] exec ,
['] exit , ;
: is: ( xt -- ) ` 'longValue' jvm-call-method 1+ ! ; : is: ( xt -- ) ` 'longValue' jvm-call-method 1+ ! ;