diff options
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 |