Changeset 38724 in project


Ignore:
Timestamp:
05/31/20 02:15:23 (6 months ago)
Author:
Kon Lovett
Message:

common local binding

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

Legend:

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

    r38720 r38724  
    1 ;;;; slib-harplot.egg -*- Scheme -*-
     1;;;; slib-charplot.egg -*- Scheme -*-
    22;;;; Kon Lovett, Mar '20
    33
  • release/5/slib-charplot/trunk/slib-charplot.scm

    r38672 r38724  
    7070
    7171;optional axis labels
     72(define slib:plot plot)
    7273(set! plot
    73   (let ((slib:plot plot))
    74     (lambda (data . args)
    75       (if (procedure? data)
    76         (let-optionals args ((lo 0) (hi 1) (npts 64))
    77           (slib:plot data lo hi npts))
    78         (let-optionals args ((xaxis "") (yaxis "") (histogram? #f))
    79           (slib:plot data xaxis yaxis histogram?))))))
     74  (lambda (data . args)
     75    (if (procedure? data)
     76      (let-optionals args ((lo 0) (hi 1) (npts 64))
     77        (slib:plot data lo hi npts))
     78      (let-optionals args ((xaxis "") (yaxis "") (histogram? #f))
     79        (slib:plot data xaxis yaxis histogram?)))))
    8080
    8181;; Parameters (replacements for SLIB graph part globals)
Note: See TracChangeset for help on using the changeset viewer.