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

Add "~"

Browse source
This commit is contained in:
Koichi Nakamura 2020-12-31 06:37:08 +09:00
parent 44d84b7051
commit a963a9c24b
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
core.fs
View file

@ -177,5 +177,16 @@ c} i,
'e, 'e,
l! l!
kA kB { t } t
\ '~' ( a b -- b a ) SWAP
c~ i,
'd, 'C, '+, '@, \ ( a b a )
'{, \ ( a b , R:a )
'd, 'C, '+, \ ( a b sp+1 , R:a )
'!, \ ( b , R:a )
'}, \ ( b a )
'e,
l!
kA kB ~ t t \ AB
Q Q