1 files changed, 18 insertions, 0 deletions
diff --git a/log-load.e b/log-load.e
index e496e04..4649403 100644
--- a/log-load.e
+++ b/log-load.e
@@ -355,3 +355,21 @@
   ~ (log address, output point, here)
   ! ;
 
+
+~   This is a helper used by log-load-string-alternate. It does the usual
+~ string packing thing, but at one layer of indirection more than usual. Its
+~ responsibility includes alignment, unlike packstring.
+~
+~ (log address, string pointer -- log address)
+: log-load-comma-string
+  swap log-load-here @ 3roll
+  ~ (log address, output point, string pointer)
+
+  packstring
+  8 packalign
+  ~ (log address, output point)
+
+  swap log-load-here 3roll swap
+  ~ (log address, output point, here)
+  ! ;
+