diff options
| -rw-r--r-- | slof/fs/fcode/1275.fs | 21 | ||||
| -rw-r--r-- | slof/fs/fcode/evaluator.fs | 2 |
2 files changed, 15 insertions, 8 deletions
diff --git a/slof/fs/fcode/1275.fs b/slof/fs/fcode/1275.fs index efa836a..7f1732d 100644 --- a/slof/fs/fcode/1275.fs +++ b/slof/fs/fcode/1275.fs @@ -202,15 +202,22 @@ ; : new-token - eva-debug? IF - s" x" get-ip >r next-ip read-fcode# r> set-ip (u.) $cat strdup - header - THEN new-token + eva-debug? IF + s" x" get-ip >r next-ip read-fcode# r> set-ip (u.) $cat strdup + header + THEN + new-token ; -: named-token \ decide wether or not to give a new token an own name in the dictionary - fcode-debug? IF new-token ELSE external-token THEN - ; +\ decide wether or not to give a new token an own name in the dictionary +: named-token + fcode-debug? IF + external-token + ELSE + next-ip read-fcode-string 2drop \ Forget about the name + new-token + THEN +; : b(to) ( val -- ) next-ip read-fcode# diff --git a/slof/fs/fcode/evaluator.fs b/slof/fs/fcode/evaluator.fs index 2f8a56e..4608963 100644 --- a/slof/fs/fcode/evaluator.fs +++ b/slof/fs/fcode/evaluator.fs @@ -17,7 +17,7 @@ variable fcode-num 1 value fcode-spread 16 value fcode-offset false value eva-debug? -false value fcode-debug? +true value fcode-debug? defer fcode-rb@ defer fcode@ |