diff options
Diffstat (limited to 'forth')
| -rw-r--r-- | forth/msp430.fth | 1 | ||||
| -rw-r--r-- | forth/tools.fth | 11 |
2 files changed, 1 insertions, 11 deletions
diff --git a/forth/msp430.fth b/forth/msp430.fth index 9ba88bf..9fb041f 100644 --- a/forth/msp430.fth +++ b/forth/msp430.fth @@ -840,3 +840,4 @@ : UCB1IV_H 05AF ; decimal + diff --git a/forth/tools.fth b/forth/tools.fth index 8992d48..b27955d 100644 --- a/forth/tools.fth +++ b/forth/tools.fth @@ -11,14 +11,3 @@ >r cell+ rot drop r> @ then -rot swap type space \ lt adv over _begin <> while - repeat 2drop ; - -( xt -- caddr u ) -: _nameof _latest @ begin \ xt lt - 2dup < while \ xt lt - dup @ \ xt lt l - dup 6 >> 1023 < if \ xt lt l - 6 >> - else - drop dup cell+ @ - then \ xt lt - repeat nip \ lt - dup @ swap cell+ over 31 & \ l lt len - rot 6 >> 1023 = if swap cell+ swap then ; \ lt len |