14 lines
206 B
Forth
14 lines
206 B
Forth
|
~~~
|
||
|
|
:double:var (nns-)
|
||
|
|
d:create swap , , ;
|
||
|
|
|
||
|
|
:double:fetch (a-nn)
|
||
|
|
fetch-next swap fetch ;
|
||
|
|
|
||
|
|
:double:store (nna-)
|
||
|
|
&swap dip store-next store ;
|
||
|
|
|
||
|
|
:double:const (nns-)
|
||
|
|
double:var &double:fetch does ;
|
||
|
|
~~~
|