add ; key.

diff --git a/src/prolog/io.rs b/src/prolog/io.rs
index 71139aeae102122543650f1b1ff5168592d7d42c..c81c2004e535856c3d533da8f70d999e3ad481a9 100644 (file)
--- a/src/prolog/io.rs
+++ b/src/prolog/io.rs
@@ -630,7 +630,7 @@ pub fn print(wam: &mut Machine, result: EvalSession) {
 
                     for c in stdin.keys() {
                         match c.unwrap() {
-                            Key::Char(' ') => {
+                            Key::Char(' ') | Key::Char(';') => {
                                 write!(stdout, " ;\n\r").unwrap();
                                 result = wam.continue_query(&alloc_locs, &mut heap_locs);
                                 break;