aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/view2D.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/view2D.spad.pamphlet')
-rw-r--r--src/algebra/view2D.spad.pamphlet2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/view2D.spad.pamphlet b/src/algebra/view2D.spad.pamphlet
index dfab772f..8d2b67e4 100644
--- a/src/algebra/view2D.spad.pamphlet
+++ b/src/algebra/view2D.spad.pamphlet
@@ -280,7 +280,7 @@ GraphImage (): Exports == Implementation where
plotLists(graf:Rep,listOfListsOfPoints:L L P,listOfPointColors:L PAL,listOfLineColors:L PAL,listOfPointSizes:L PI):$ ==
givenLen := #listOfListsOfPoints
-- take out point lists that are actually empty
- listOfListsOfPoints := [ l for l in listOfListsOfPoints | ^null l ]
+ listOfListsOfPoints := [ l for l in listOfListsOfPoints | not null l ]
if (null listOfListsOfPoints) then
error "GraphImage was given a list that contained no valid point lists"
if ((len := #listOfListsOfPoints) ~= givenLen) then