diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-03-12 17:04:43 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-03-12 17:04:43 +0000 |
| commit | 52fddea19454dc2b9bcb54c6edd5a4cd4f5765a9 (patch) | |
| tree | 4b13ccc6d57c7c1ee615c83615b246c98eae388a /src/algebra/view2D.spad.pamphlet | |
| parent | 42d38bee45a64edfc12641053e58581c20584363 (diff) | |
| download | open-axiom-52fddea19454dc2b9bcb54c6edd5a4cd4f5765a9.tar.gz | |
* src/algebra/: Systematically use negative? when comparing for
less than 0.
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 |