diff options
Diffstat (limited to 'src/algebra/view2D.spad.pamphlet')
| -rw-r--r-- | src/algebra/view2D.spad.pamphlet | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/algebra/view2D.spad.pamphlet b/src/algebra/view2D.spad.pamphlet index 5d894871..c132bcec 100644 --- a/src/algebra/view2D.spad.pamphlet +++ b/src/algebra/view2D.spad.pamphlet @@ -401,7 +401,7 @@ GraphImage (): Exports == Implementation where appendPoint (graf,aPoint) == num : I := #(graf.llPoints) - 1 - num < 0 => error "No point lists to append to!" + negative? num => error "No point lists to append to!" (graf.llPoints.num) := append((graf.llPoints.num),[aPoint]) point (graf,aPoint,PointColor) == @@ -780,7 +780,7 @@ TwoDimensionalViewport ():Exports == Implementation where -- exist. sendI(VIEW,viewport.key)$Lisp i := getI(VIEW)$Lisp - (i < 0$I) => + negative? i => viewport.key := 0$I error "This viewport has already been closed!" true @@ -1111,7 +1111,7 @@ TwoDimensionalViewport ():Exports == Implementation where sendSTR(VIEW,Filename)$Lisp m := minIndex(avail := viewWriteAvailable()) for aTypeOfFile in thingsToWrite repeat - if (writeTypeInt:= position(upperCase aTypeOfFile,avail)-m) < 0 then + if negative?(writeTypeInt:= position(upperCase aTypeOfFile,avail)-m) then sayBrightly([" > "::E,(concat(aTypeOfFile, _ " is not a valid file type for writing a 2D viewport"))::E]$List(E))$Lisp else |