remove unneeded bits from library/konilo

FossilOrigin-Name: 4c3cb0a5318cf470ccac80360372966f0cc5ced4a67a8757eb1a776aeef93231
This commit is contained in:
crc 2024-01-06 22:58:42 +00:00
parent 279c4e9473
commit 2941d58321

View file

@ -24,19 +24,5 @@ names for these).
:n:mod mod ;
:n:divmod /mod ;
:comma:a , ;
~~~
Provide source data.
~~~
'interface/konilo.retro s:keep
dup 'comma:a d:lookup d:source store
dup 'n:add d:lookup d:source store
dup 'n:sub d:lookup d:source store
dup 'n:mul d:lookup d:source store
dup 'n:div d:lookup d:source store
dup 'n:mod d:lookup d:source store
dup 'n:divmod d:lookup d:source store
drop
:comma , ;
~~~