From 265e7b88585686bd8c68a08da4080686ecf0baa5 Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Mon, 24 Sep 2018 21:45:52 +0200 Subject: [PATCH] Fix. --- build/lisp.tcl | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/build/lisp.tcl b/build/lisp.tcl index 0f4d81c1..24231d9b 100644 --- a/build/lisp.tcl +++ b/build/lisp.tcl @@ -932,15 +932,18 @@ type ":kill\r" respond "*" ":complr\r" respond "_" "\007" respond "*" "(load 'ioc)" -respond "T" "(maklap)" +expect -re {[0-7]} +respond "\n" "(maklap)" respond "_" "define\r" respond "_" "\032" type ":kill\r" respond "*" ":complr\r" respond "_" "\007" respond "*" "(load 'ioc)" -respond "T" "(load 'define)" -respond "0" "(maklap)" +expect -re {[0-7]} +respond "\n" "(load 'define)" +expect -re {[0-7]} +respond "\n" "(maklap)" respond "_" "error\r" respond "_" "parser\r" respond "_" "primit\r"