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/msg.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/msg.boot')
-rw-r--r-- | src/interp/msg.boot | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/interp/msg.boot b/src/interp/msg.boot index 4f658fd2..af1532f9 100644 --- a/src/interp/msg.boot +++ b/src/interp/msg.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 @@ -349,8 +349,7 @@ getStFromMsg msg == setOptKeyBlanks() preStL := getPreStL getMsgPrefix? msg getMsgTag msg = 'line => - [$optKeyBlanks, '"%1" , :preStL,_ - getMsgText msg] + [$optKeyBlanks, :preStL, getMsgText msg] posStL := getPosStL msg optKey := $showKeyNum => |