Changeset 38390 in project


Ignore:
Timestamp:
03/30/20 03:15:36 (7 months ago)
Author:
Kon Lovett
Message:

fancy provided?

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

Legend:

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

    r38373 r38390  
    2626(import (chicken type))
    2727(import (only (chicken port) terminal-size))
     28(import (only (chicken platform) features))
     29(import (only (chicken keyword) string->keyword))
    2830(import (only (srfi 1) last-pair))
    2931(import (srfi 63))
  • release/5/slib-charplot/trunk/slib-compat.scm

    r38369 r38390  
    99    (if (zero? h) 25 h)))
    1010
    11 (define (provided? x)
    12   (memq x '(inexact)))
     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 ) ) ) ) )
    1326
    1427(define slib:error error)
Note: See TracChangeset for help on using the changeset viewer.