Changeset 39987 in project


Ignore:
Timestamp:
04/13/21 03:58:21 (4 months ago)
Author:
Kon Lovett
Message:

no use of terminal-size on Win

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

Legend:

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

    r39985 r39987  
    33
    44((synopsis "The SLIB character plotting library")
    5  (version "1.1.4")
     5 (version "1.1.5")
    66 (author "Aubrey Jaffer")
    77 (maintainer "Kon Lovett")
     
    1414    (types-file)
    1515    ;no "-strict-types" due to `charplot.scm:309' npts set!
    16     (csc-options "-O3" "-d1" "-no-procedure-checks-for-toplevel-bindings")) ) )
     16    (csc-options "-O3" "-d1" "-no-procedure-checks-for-toplevel-bindings" "-no-procedure-checks-for-usual-bindings")) ) )
  • release/5/slib-charplot/trunk/slib-compat.scm

    r39985 r39987  
    4141(define output-port-height)
    4242(let ()
    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)) )
     43  (cond-expand
     44    ;terminal-size: "On Windows, this procedure always raises an exception."
     45    (windows
     46      (define (port-size port)
     47        (values 0 0) ) )
     48    (else
     49      (define (port-size port)
     50        (import (only (chicken port) terminal-size terminal-port?))
     51        (if (terminal-port? port) (terminal-size port) (values 0 0)) ) ) )
    4652  (set! output-port-width (lambda (port)
    4753    (let-values (((h w) (port-size port)))
Note: See TracChangeset for help on using the changeset viewer.