diff options
Diffstat (limited to 'src/algebra/formula.spad.pamphlet')
| -rw-r--r-- | src/algebra/formula.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/formula.spad.pamphlet b/src/algebra/formula.spad.pamphlet index 27ebc1ed..384fad69 100644 --- a/src/algebra/formula.spad.pamphlet +++ b/src/algebra/formula.spad.pamphlet @@ -400,7 +400,7 @@ ScriptFormulaFormat(): public == private where i : Integer ATOM(expr)$Lisp pretend Boolean => str := stringify expr - FIXP(expr)$Lisp => + %integer?(expr)$Foreign(Builtin) => i := expr : Integer if (i < 0) or (i > 9) then group str else str (i := position(str,specialStrings)) > 0 => |