diff options
Diffstat (limited to 'src/algebra/viewDef.spad.pamphlet')
| -rw-r--r-- | src/algebra/viewDef.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/viewDef.spad.pamphlet b/src/algebra/viewDef.spad.pamphlet index fd552797..8a6a5f60 100644 --- a/src/algebra/viewDef.spad.pamphlet +++ b/src/algebra/viewDef.spad.pamphlet @@ -211,7 +211,7 @@ ViewDefaultsPackage():Exports == Implementation where viewWriteDefault listOfThings == thingsToWrite : L S := [] for aTypeOfFile in listOfThings repeat - if (writeTypeInt := position(upperCase aTypeOfFile,viewWriteAvailable())) < 0 then + if negative?(writeTypeInt := position(upperCase aTypeOfFile,viewWriteAvailable())) then sayBrightly([" > ",concat(aTypeOfFile, " is not a valid file type for writing a viewport")])$Lisp else |