Changeset 38724 in project for release

Timestamp:

05/31/20 02:15:23 (2 months ago)

Author:

Kon Lovett

Message:

common local binding

Location:

release/5/slib-charplot/trunk

Files:

• slib-charplot.egg (modified) (1 diff)
• slib-charplot.scm (modified) (1 diff)

release/5/slib-charplot/trunk/slib-charplot.egg

@@ -1 @@
-;;;; slib-harplot.egg -*- Scheme -*-
+;;;; slib-charplot.egg -*- Scheme -*-
 ;;;; Kon Lovett, Mar '20
 

release/5/slib-charplot/trunk/slib-charplot.scm

@@ -70 +70 @@
 
 ;optional axis labels
+(define slib:plot plot)
 (set! plot
-  (let ((slib:plot plot))
-    (lambda (data . args)
-      (if (procedure? data)
-        (let-optionals args ((lo 0) (hi 1) (npts 64))
-          (slib:plot data lo hi npts))
-        (let-optionals args ((xaxis "") (yaxis "") (histogram? #f))
-          (slib:plot data xaxis yaxis histogram?))))))
+  (lambda (data . args)
+    (if (procedure? data)
+      (let-optionals args ((lo 0) (hi 1) (npts 64))
+        (slib:plot data lo hi npts))
+      (let-optionals args ((xaxis "") (yaxis "") (histogram? #f))
+        (slib:plot data xaxis yaxis histogram?)))))
 
 ;; Parameters (replacements for SLIB graph part globals)