diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-01-19 09:06:24 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-01-19 09:06:24 +0000 |
| commit | c8e50c69725188f4a48d1e215d00d917dfc7c3d1 (patch) | |
| tree | 002236f8f6832b41c12a6733f4099c00c59a40cc /src/algebra | |
| parent | dd38e4a9c05df5de7c133cbb8d60fd10c7b56f5c (diff) | |
| download | open-axiom-c8e50c69725188f4a48d1e215d00d917dfc7c3d1.tar.gz | |
* interp/vmlisp.lisp (FIXP): Remove.
* interp/alql.boot: Use integer? instead of FIXP.
* interp/br-con.boot: Likewise.
* interp/br-op1.boot: Likewise.
* interp/c-util.boot: Likewise.
* interp/fnewmeta.lisp: Likewise.
* interp/ht-root.boot: Likewise.
* interp/i-analy.boot: Likewise.
* interp/i-syscmd.boot: Likewise.
* interp/i-toplev.boot: Likewise.
* interp/interop.boot: Likewise.
* interp/lisplib.boot: Likewise.
* interp/mark.boot: Likewise.
* interp/newfort.boot: Likewise.
* interp/nrunfast.boot: Likewise.
* interp/pspad1.boot: Likewise.
* interp/setvars.boot: Likewise.
* interp/showimp.boot: Likewise.
* interp/slam.boot: Likewise.
* interp/topics.boot: Likewise.
* interp/trace.boot: Likewise.
* interp/wi1.boot: Likewise.
* interp/wi2.boot: Likewise.
* interp/word.boot: Likewise.
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 |