| : interface ( -- ) \ objects |
: interface ( -- ) \ objects |
| \g starts an interface definition. |
\g starts an interface definition. |
| interface% %allot >r |
interface% %allot >r |
| 0 0 r@ interface-map 2! |
r@ current-interface ! |
| |
current-interface 1 cells save-mem r@ interface-map 2! |
| -1 cells last-interface-offset +! |
-1 cells last-interface-offset +! |
| last-interface-offset @ r@ interface-offset ! |
last-interface-offset @ r@ interface-offset ! |
| 0 r@ interface-map-offset ! |
0 r> interface-map-offset ! ; |
| r> current-interface ! ; |
|
| |
|
| : end-interface-noname ( -- interface ) \ objects |
: end-interface-noname ( -- interface ) \ objects |
| \g ends an interface definition. The resulting interface is |
\g ends an interface definition. The resulting interface is |
