diff options
Diffstat (limited to 'src/algebra/clip.spad.pamphlet')
| -rw-r--r-- | src/algebra/clip.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/clip.spad.pamphlet b/src/algebra/clip.spad.pamphlet index 5adde3dc..30ee0ff3 100644 --- a/src/algebra/clip.spad.pamphlet +++ b/src/algebra/clip.spad.pamphlet @@ -212,7 +212,7 @@ TwoDimensionalPlotClipping(): Exports == Implementation where xVals := xRange plot empty?(pointLists := listBranches plot) => [nil(),xVals,segment(0,0)] - more?(pointLists := listBranches plot,1) => + #(pointLists := listBranches plot) > 1 => error "clipDraw: plot has more than one branch" empty?(pointList := first pointLists) => [nil(),xVals,segment(0,0)] |