about summary refs log tree commit diff
path: root/evoke.e
diff options
context:
space:
mode:
Diffstat (limited to 'evoke.e')
-rw-r--r--evoke.e15
1 files changed, 4 insertions, 11 deletions
diff --git a/evoke.e b/evoke.e
index 9a1e515..acd8f8e 100644
--- a/evoke.e
+++ b/evoke.e
@@ -1,12 +1,4 @@
-~ (cat labels.e elf.e transform.e execution.e \
-~  echo 's" pyrzqxgl" allocate-string dup 262144 read-to-buffer'; \
-~  cat core.e linux.e output.e amd64.e execution-support.e log-load.e; \
-~  echo pyrzqxgl swap 262144 read-to-buffer; \
-~  cat core.e linux.e output.e amd64.e execution-support.e log-load.e \
-~      dynamic.e input.e interpret.e flow-control.e linux-dynamic.e; \
-~  echo 0 sys-exit pyrzqxgl; \
-~  cat evoke.e) \
-~     | ./quine > evoke && chmod 755 evoke && ./evoke
+~ cat labels.e elf.e transform.e execution.e evoke.e | ./evoke > evoke2
 
 : read-inputs
   here @ dup
@@ -16,7 +8,7 @@
   s" amd64.e" pack-file-contents
   s" execution-support.e" pack-file-contents
   s" log-load.e" pack-file-contents
-  8 packalign here !
+  0 pack16 8 packalign here !
   s" source-to-precompile" variable
 
   here @ dup
@@ -31,7 +23,8 @@
   s" interpret.e" pack-file-contents
   s" flow-control.e" pack-file-contents
   s" linux-dynamic.e" pack-file-contents
-  8 packalign here !
+  s" files.e" pack-file-contents
+  0 pack16 8 packalign here !
   s" source-to-copy-to-log" variable ;
 read-inputs