Implement (send)

2026-08-27 20:36:34 -04:00 · 2024-11-30 01:09:34 +09:00
parent c99698837d
commit de6a18813b
3 changed files with 12 additions and 3 deletions
@@ -4,14 +4,17 @@
    (while t
      (case (expect* 'timeout 10 "xxx" "yyy")
        ((0)
-         (sendln (string-append ctrlc "exit"))
+         (send ctrlc)
+         (sendln "exit")
         (return-from main nil)
         )
        ((1)
-         (sendln (string-append ctrlc "rem"))
+         (send ctrlc)
+         (sendln "rem")
         )
        ((-1)
-         (sendln (string-append ctrlc "exit"))
+         (send ctrlc)
+         (sendln "exit")
         (return-from main nil)
        )
        )