source: project/release/5/slib-charplot/tags/1.1.0/slib-compat.scm @ 38673

Last change on this file since 38673 was 38390, checked in by Kon Lovett, 7 months ago

fancy provided?

File size: 652 bytes
Line 
1;;;; slib-compat.scm
2
3(define (output-port-width port)
4  (let-values (((h w)(terminal-size port)))
5    (if (zero? w) 80 w)))
6
7(define (output-port-height port)
8  (let-values (((h w) (terminal-size port)))
9    (if (zero? h) 25 h)))
10
11(define provided?
12  (let (
13    (+numeric+ '(inexact))
14    (+builtins+ '()) )
15    (lambda (x)
16      (let (
17        (kwd (string->keyword (symbol->string x)))
18        (fs (features)) )
19        (and
20          (cond
21            ((memq kwd fs))
22            ((and (memq x +numeric+) (memq #:full-numeric-tower fs)))
23            ((memq x +builtins+))
24            (else #f) )
25            #t ) ) ) ) )
26
27(define slib:error error)
Note: See TracBrowser for help on using the repository browser.