diff options
| author | Irene Knapp <ireneista@irenes.space> | 2026-10-05 02:31:30 -0700 |
|---|---|---|
| committer | Irene Knapp <ireneista@irenes.space> | 2026-10-05 02:31:30 -0700 |
| commit | ec7fefbae7b9651b5cfe320b2d8b8db27fbc683f (patch) | |
| tree | 4d1556d86e8cc297f82b4ac44d550ee0ef557e58 /compilation/labels.e | |
| parent | 589e56e26b8e997fa748ccc8fcd5b4bfcd2241a7 (diff) | |
use the new x' everywhere it's applicable
you may infer from the size of the CL that we've been wanting this for QUITE A WHILE Force-Push: yes Change-Id: Iaa6ff8f40bd4020a75b81aadd87874cc8d512123
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 |