Changeset 39985 in project


Ignore:
Timestamp:
04/13/21 00:45:36 (4 months ago)
Author:
Kon Lovett
Message:

remove unused import, fix default port size (handle non-terminal)

Location:
release/5/slib-charplot/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/5/slib-charplot/trunk/slib-charplot.egg

    r39920 r39985  
    33
    44((synopsis "The SLIB character plotting library")
    5  (version "1.1.3")
     5 (version "1.1.4")
    66 (author "Aubrey Jaffer")
    77 (maintainer "Kon Lovett")
  • release/5/slib-charplot/trunk/slib-charplot.scm

    r38789 r39985  
    2525  warning make-parameter))
    2626(import (chicken type))
    27 (import (only (chicken port) terminal-size))
    2827(import (only (chicken platform) features))
    2928(import (only (chicken keyword) string->keyword))
  • release/5/slib-charplot/trunk/slib-compat.scm

    r39972 r39985  
    4141(define output-port-height)
    4242(let ()
    43   (import (only (chicken port) terminal-size))
     43  (define (port-size port)
     44    (import (only (chicken port) terminal-size terminal-port?))
     45    (if (terminal-port? port) (terminal-size port) (values 0 0)) )
    4446  (set! output-port-width (lambda (port)
    45     (let-values (((h w) (terminal-size port)))
     47    (let-values (((h w) (port-size port)))
    4648      (if (zero? w) 80 w))))
    4749  (set! output-port-height (lambda (port)
    48     (let-values (((h w) (terminal-size port)))
     50    (let-values (((h w) (port-size port)))
    4951      (if (zero? h) 25 h)))) )
    5052
Note: See TracChangeset for help on using the changeset viewer.