diff options
author | dos-reis <gdr@axiomatics.org> | 2009-04-08 08:21:20 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-04-08 08:21:20 +0000 |
commit | def4da7bfc1f143b6a7a13a87895143909dc50c6 (patch) | |
tree | 8a5c0a90ae674840f1e95a1d0ce95e6f0887a370 /src/interp/int-top.boot | |
parent | 05e0fb0c631ec281c283ef6afb27ee3f228c2828 (diff) | |
download | open-axiom-def4da7bfc1f143b6a7a13a87895143909dc50c6.tar.gz |
* interp/scan.boot (scanCheckRadix): Take the radix in string form.
Croak on missing digit after radix.
(scanNumber): Don't ask for implicit 0 completion for explicit
radix integers.
* interp/int-top.boot (phInterpret): Don't bother evaluating
expressions if earlier phases saw errors.
* interp/msg.boot (getStFromMsg): Fix typo.
Diffstat (limited to 'src/interp/int-top.boot')
-rw-r--r-- | src/interp/int-top.boot | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/interp/int-top.boot b/src/interp/int-top.boot index 8c7df1e8..06366706 100644 --- a/src/interp/int-top.boot +++ b/src/interp/int-top.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2008, Gabriel Dos Reis. +-- Copyright (C) 2007-2009, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -247,6 +247,8 @@ intloopSpadProcess(stepNo,lines,ptree,interactive?)== stepNo+1 phInterpret carrier == + -- Don't try evaluation if the data structure may have been corrupted. + not ncEltQ(carrier, "ok?") => "KO" ptree := ncEltQ(carrier, 'ptree) val := intInterpretPform(ptree) ncPutQ(carrier, 'value, val) |