diff options
| -rw-r--r-- | mu.arc | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/mu.arc b/mu.arc index a06f90eb..731c6592 100644 --- a/mu.arc +++ b/mu.arc @@ -1868,7 +1868,12 @@ (stdin:channel-address <- next-input) { begin (c:character <- read-key) - (loop-unless c:character) + { begin + (break-if c:character) + ; no key; end this time slice + (sleep for-some-cycles:literal 1:literal) + (loop 2:blocks) + } (curr:tagged-value <- save-type c:character) (stdin:channel-address/deref <- write stdin:channel-address curr:tagged-value) (loop) |