system-stdout 173 B

1234567
  1. # key: ss
  2. # name: system-stdout
  3. # --
  4. (let* ((port (open-pipe $1 OPEN_READ))
  5. (output (read-string port)))
  6. (close-port port)
  7. (string-trim-right output #\newline))