core: Add words/unwords/unwords-as and use them.

[factor.git] / extra / cpu / 8080 / emulator / emulator.factor

diff --git a/extra/cpu/8080/emulator/emulator.factor b/extra/cpu/8080/emulator/emulator.factor
index adb06e68f09c8e366488f194c8eacd9f75e88ded..8df417e207b69e81df142d38d62416de9d106b2e 100644 (file)
--- a/extra/cpu/8080/emulator/emulator.factor
+++ b/extra/cpu/8080/emulator/emulator.factor
@@ -1375,7 +1375,7 @@ SYMBOL: last-opcode
     ! Process the list of strings, which should make
     ! up an 8080 instruction, and output a quotation
     ! that would implement that instruction.
-    dup " " join instruction-quotations
+    dup unwords instruction-quotations
     [
        "_" join [ "emulate-" % % ] "" make create-word-in
        dup last-instruction set-global