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

Add "o"

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

11
core.fs
View file

@ -177,10 +177,12 @@ c} i,
'e, 'e,
l! l!
\ 'o' ( a b -- a b a ) OVER
co i, 'd, 'C, '+, '@, 'e, l!
\ '~' ( a b -- b a ) SWAP \ '~' ( a b -- b a ) SWAP
c~ i, c~ i,
'd, 'C, '+, '@, \ ( a b a ) 'o, \ ( a b a )
'{, \ ( a b , R:a ) '{, \ ( a b , R:a )
'd, 'C, '+, \ ( a b sp+1 , R:a ) 'd, 'C, '+, \ ( a b sp+1 , R:a )
'!, \ ( b , R:a ) '!, \ ( b , R:a )
@ -188,5 +190,12 @@ c~ i,
'e, 'e,
l! l!
kA kB ~ t t \ AB kA kB ~ t t \ AB
k
t
kA kB o t t t
k
t
Q Q