From 0f3c90d8c67c7150feed36a1e620a6aa68f987a7 Mon Sep 17 00:00:00 2001 From: Irene Knapp Date: Thu, 28 May 2026 21:07:55 -0700 Subject: moved pack-raw-string into core.e Force-Push: yes Change-Id: I0940c0c21580e810716a5f61b95fd520c464ab9e --- labels.e | 5 ----- 1 file changed, 5 deletions(-) (limited to 'labels.e') diff --git a/labels.e b/labels.e index 6175128..0d2b60d 100644 --- a/labels.e +++ b/labels.e @@ -50,11 +50,6 @@ ~ Most of the time, the shorthand words L@' and L!' will be all you need to ~ use from your own code. -~ TODO this should go somewhere else :) -~ (current output point, string pointer --) -: pack-raw-string - { unpack8 dup } { 3roll swap pack8 swap } while drop drop ; - ~ The labels data structure is a linked list of dictionary entries, with ~ the same header format as the main Evocation dictionary, but instead of ~ being executable, each holds two words of data: status bits, and a value, -- cgit 1.4.1