From 3f3bda4692b4017c7ad6ed1c434313b9dcc62cfb Mon Sep 17 00:00:00 2001
From: Irene Knapp <ireneista@irenes.space>
Date: Fri, 22 May 2026 03:57:59 -0700
Subject: small changes towards self-hosting

Force-Push: yes
Change-Id: I6cf15b4e37b66a04afd5af9dfd9cc3d5eb52b894
---
 dynamic.e | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

(limited to 'dynamic.e')

diff --git a/dynamic.e b/dynamic.e
index 773511f..24fe388 100644
--- a/dynamic.e
+++ b/dynamic.e
@@ -339,6 +339,27 @@
   here ! ;
 
 
+~   Notionally, it might make sense to define "create" in terms of
+~ "create-in". Any change like that is being postponed to after the removal
+~ of flatassembler, when refactorings will be easier.
+~
+~   The dictionary handle points to a pointer to the first item.
+~
+~ (string pointer, dictionary handle --)
+: create-in
+  dup @ here @ swap pack64
+~ (name string pointer, dictionary handle, output point)
+  0 pack8 0 pack8
+  3roll packstring
+  8 packalign
+~ (dictionary handle, output point)
+  swap here @ swap !
+~ (output point)
+  here !
+  ;
+
+
+
 : self-codeword here @ 8 + , ;
 
 
-- 
cgit 1.4.1