Dear list,

I am writing a script that reads stdin and uses the function
(key). But when I call it like:
$ cat file.txt |script.l
(key) does not wait for a keypress.
How could I force (key) to wait for a keypress?

This is the script:
#!/usr/bin/picolisp /usr/lib/picolisp/lib.l

(load "@lib/misc.l")

(in NIL
   (until (eof)
      (prinl (line)) ) )

(prinl "Press Key...") (key)
Thank you,


Reply via email to