diff options
Diffstat (limited to 'src/algebra')
| -rw-r--r-- | src/algebra/formula.spad.pamphlet | 2 | ||||
| -rw-r--r-- | src/algebra/mathml.spad.pamphlet | 2 | ||||
| -rw-r--r-- | src/algebra/tex.spad.pamphlet | 2 |
3 files changed, 3 insertions, 3 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 => diff --git a/src/algebra/mathml.spad.pamphlet b/src/algebra/mathml.spad.pamphlet index 4b22db37..9bf7e720 100644 --- a/src/algebra/mathml.spad.pamphlet +++ b/src/algebra/mathml.spad.pamphlet @@ -1333,7 +1333,7 @@ have to be switched by swapping names. str := stringify expr len := #str -- this bit seems to deal with integers - FIXP$Lisp expr => + %integer?(expr)$Foreign(Builtin) => i := expr pretend Integer if (i < 0) or (i > 9) then diff --git a/src/algebra/tex.spad.pamphlet b/src/algebra/tex.spad.pamphlet index 53c69b0b..342107d5 100644 --- a/src/algebra/tex.spad.pamphlet +++ b/src/algebra/tex.spad.pamphlet @@ -583,7 +583,7 @@ TexFormat(): public == private where ATOM(expr)$Lisp pretend Boolean => str := stringify expr len := #str - FIXP$Lisp expr => + %integer?(expr)$Foreign(Builtin) => i := expr pretend Integer if (i < 0) or (i > 9) then |