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.e7
1 files changed, 5 insertions, 2 deletions
diff --git a/evoke.e b/evoke.e
index 823866f..b7ecb1d 100644
--- a/evoke.e
+++ b/evoke.e
@@ -1,5 +1,5 @@
-~ echo 's" evoke.e" enchant' | ./evoke > evoke2 && chmod 755 evoke2
-~ echo 's" evoke.e" inscribe' | ./evoke > evoke.hex
+~ ./evoke evoke.e enchant > evoke2 && chmod 755 evoke2
+~ ./evoke evoke.e inscribe > evoke.hex
 
 ~ (output memory start, current output point
 ~  -- output memory start, current output point)
@@ -33,8 +33,11 @@
 
 : define-compilation
   allocate-compilation-definition
+  dup zero-compilation-definition
   ~ (definition)
 
+  dup :forth-executable swap compilation-definition-executable-type !
+
   [ current-input-file-name literal-string ]
   over compilation-definition-top-level-filename !