small changes towards self-hosting

Force-Push: yes
Change-Id: I6cf15b4e37b66a04afd5af9dfd9cc3d5eb52b894

1 files changed, 21 insertions, 0 deletions

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 + , ;