diff options
Diffstat (limited to 'src/algebra/fortmac.spad.pamphlet')
| -rw-r--r-- | src/algebra/fortmac.spad.pamphlet | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/algebra/fortmac.spad.pamphlet b/src/algebra/fortmac.spad.pamphlet index 657d8da1..07016a41 100644 --- a/src/algebra/fortmac.spad.pamphlet +++ b/src/algebra/fortmac.spad.pamphlet @@ -56,11 +56,11 @@ MachineInteger(): Exports == Implementation where abs(u) > MAXINT => message: S := concat [convert(u)@S," > MAXINT(",convert(MAXINT)@S,")"] error message - u pretend $ + per u - retract(u:$):Integer == u pretend Integer + retract(u:$):Integer == rep u - retractIfCan(u:$):Union(Integer,"failed") == u pretend Integer + retractIfCan(u:$):Union(Integer,"failed") == rep u @ \section{domain MFLOAT MachineFloat} |