diff options
Diffstat (limited to 'compilation/labels.e')
| -rw-r--r-- | compilation/labels.e | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/compilation/labels.e b/compilation/labels.e index 2c028aa..c34b764 100644 --- a/compilation/labels.e +++ b/compilation/labels.e @@ -192,9 +192,9 @@ : L' word value@ interpreter-flags @ 0x01 & - { ' litstring entry-to-execution-token , + { x' litstring , here @ swap packstring 8 packalign here ! - ' intern-label entry-to-execution-token , + x' intern-label , dropstring } { intern-label dropstring-with-result } if-else ; make-immediate @@ -202,18 +202,18 @@ ~ This is a concise syntax for calling use-label with a label whose name ~ you know statically. It performs L', then calls use-label. : L@' - ' L' entry-to-execution-token execute + x' L' execute interpreter-flags @ 1 & - { ' use-label entry-to-execution-token , } + { x' use-label , } { use-label } if-else ; make-immediate ~ This is a concise syntax for calling set-label with a label whose name ~ you know statically. It performs L', then calls set-label. : L!' - ' L' entry-to-execution-token execute + x' L' execute interpreter-flags @ 1 & - { ' set-label entry-to-execution-token , } + { x' set-label , } { set-label } if-else ; make-immediate |