;;;; slib-compat.scm


(define (output-port-width port)
  (let-values (((w h) (terminal-size port)))
    (if (zero? w) 80 w)))

(define (output-port-height port)
  (let-values (((w h) (terminal-size port)))
    (if (zero? h) 25 h)))

(define (provided? x)
  (memq x '(inexact)))

(define slib:error error)