[Lush-cvs] lush/lsh/libstd plotenv.lsh,1.41,1.42

[Leon B. <le...@us...>]

Update of /cvsroot/lush/lush/lsh/libstd
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv29675

Modified Files:
	plotenv.lsh 
Log Message:
fix copy-plot-port parameter validation


Index: plotenv.lsh
===================================================================
RCS file: /cvsroot/lush/lush/lsh/libstd/plotenv.lsh,v
retrieving revision 1.41
retrieving revision 1.42
diff -C2 -d -r1.41 -r1.42
*** plotenv.lsh	6 Dec 2012 15:45:29 -0000	1.41
--- plotenv.lsh	6 Dec 2012 16:02:13 -0000	1.42
***************
*** 1422,1426 ****
        (setq object (or object (nth 2 pp)))
        (setq pp (cadr pp)) )
!     (when (not (is-of-class port PlotContext))
        (error 'copy-plot-port "not a plot-port or plotcontext" port) )
      (when (functionp object)
--- 1422,1426 ----
        (setq object (or object (nth 2 pp)))
        (setq pp (cadr pp)) )
!     (when (not (is-of-class pp PlotContext))
        (error 'copy-plot-port "not a plot-port or plotcontext" port) )
      (when (functionp object)