From 7847aa583968c634da188df88656279e5ba7840d Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Mon, 24 Sep 2018 21:34:47 +0200
Subject: [PATCH] Compile the IOC emulation.

---
 build/lisp.tcl | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/build/lisp.tcl b/build/lisp.tcl
index e6049fee..0f4d81c1 100644
--- a/build/lisp.tcl
+++ b/build/lisp.tcl
@@ -926,16 +926,20 @@ type ":kill\r"
 # Lisp Logo
 respond "*" ":cwd llogo\r"
 respond "*" ":complr\r"
+respond "_" "ioc\r"
+respond "_" "\032"
+type ":kill\r"
+respond "*" ":complr\r"
 respond "_" "\007"
-respond "*" {(load "ioc")}
+respond "*" "(load 'ioc)"
 respond "T" "(maklap)"
 respond "_" "define\r"
 respond "_" "\032"
 type ":kill\r"
 respond "*" ":complr\r"
 respond "_" "\007"
-respond "*" {(load "ioc")}
-respond "T" {(load "define")}
+respond "*" "(load 'ioc)"
+respond "T" "(load 'define)"
 respond "0" "(maklap)"
 respond "_" "error\r"
 respond "_" "parser\r"