diff options
Diffstat (limited to 'log-load.e')
| -rw-r--r-- | log-load.e | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/log-load.e b/log-load.e index d1e4a2f..55fa25d 100644 --- a/log-load.e +++ b/log-load.e @@ -200,6 +200,18 @@ over log-load-here swap drop ! ; +~ (log address -- log address) +: log-load-self-codeword + log-load-here dup @ + ~ (log address, here, output point) + + dup 8 + pack64 + ~ (log address, here, output point) + + swap ! ; + + + ~ This is the same as ",", from dynamic.e, except that it takes the log's ~ address as a parameter rather than hardcoding it, so that it can be used in ~ situations where the normal compilation process isn't yet available. |