diff options
| author | Irene Knapp <ireneista@irenes.space> | 2026-09-20 11:16:45 -0700 |
|---|---|---|
| committer | Irene Knapp <ireneista@irenes.space> | 2026-09-20 11:16:45 -0700 |
| commit | 170f925a23e0c54a97dde4c8294898549424d332 (patch) | |
| tree | 61a709dc36aee14e9357f64a2e9d36e1c0add399 /interpret.e | |
| parent | 4370f257141fee85adf0a2a3e76b7881cb1b8e7a (diff) | |
add a special word for magic-comment tab stops
Force-Push: yes Change-Id: I7ba182f5939aa3b5d280fb48673e2cc74d72e8ea
Diffstat (limited to 'interpret.e')
| -rw-r--r-- | interpret.e | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/interpret.e b/interpret.e index 92b2035..7d5d429 100644 --- a/interpret.e +++ b/interpret.e @@ -414,7 +414,7 @@ latest @ ~ because that could be relevant to end-user code that compiles things ~ without using the transforms, but in the regular compiler it's not used ~ because the transforms override this whole implementation. - lit exit , ~ : -8 exit (codeword pointer) + lit exit , ~ : -8 exit #-- (codeword pointer) make-visible ~ See above regarding [. Since it's an immediate word, we have to go to ~ extra trouble to compile it as part of ;. Since it's also hidden, we have @@ -466,7 +466,7 @@ latest @ ~ The magic comment isn't active in the compiler as-written, since the ~ transformations do this bit themselves, but should still be here for ~ completeness; it could affect other things people compile. - entry-to-execution-token , ~ : -8 litstring (codeword pointer) + entry-to-execution-token , ~ : -8 litstring #-- (codeword pointer) } if here @ key { dup dup 0x22 != && } { pack8 key } while drop 0 pack8 @@ -482,7 +482,7 @@ latest @ interpreter-flags @ 1 & { [ s" emitstring" find literal ] ~ As with s", the magic comment is for completeness only. - entry-to-execution-token , ~ : -8 emitstring (codeword pointer) + entry-to-execution-token , ~ : -8 emitstring #-- (codeword pointer) } { emitstring } if-else ; make-immediate |