| cell+ tuck 2 cells + count rot cell+ @ |
cell+ tuck 2 cells + count rot cell+ @ |
| lib-sym dup 0= abort" Proc not found!" swap cell+ ! ; |
lib-sym dup 0= abort" Proc not found!" swap cell+ ! ; |
| |
|
| -1 Constant (addr) |
-1 Constant <addr> |
| 0 Constant (int) |
0 Constant <int> |
| 1 Constant (float) |
1 Constant <float> |
| 2 Constant (void) |
2 Constant <void> |
| 4 Constant (int...) |
4 Constant <int...> |
| 5 Constant (float...) |
5 Constant <float...> |
| 6 Constant (void...) |
6 Constant <void...> |
| |
|
| : proc, ( pars type lib addr -- ) |
: proc, ( pars type lib addr -- ) |
| \G allocates and initializes proc stub |
\G allocates and initializes proc stub |
