(define-library (world guile-tty)
  (import (scheme base))
  (cond-expand
    (guile (import (system foreign)))
    (else (error 'not-supported)))
  (begin
    (error 'TODO)

    ;; https://www.gnu.org/software/guile//manual/html_node/More-Foreign-Functions.html
    (define _openpty
      (foreign-library-function "tcgetattr"
                                #:return-type int
                                #:arg-types (list 'int '*)))
    ))