diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/interp/msg.boot | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index ef638235..fef2a847 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2008-01-11 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * interp/msg.boot (getStFromMsg): Fix typo. + 2008-01-10 Gabriel Dos Reis <gdr@cs.tamu.edu> * algebra/syntax.spad (getOperator): Inject into the right diff --git a/src/interp/msg.boot b/src/interp/msg.boot index 1bbae560..dbfb81b0 100644 --- a/src/interp/msg.boot +++ b/src/interp/msg.boot @@ -352,7 +352,7 @@ getStFromMsg msg == setOptKeyBlanks() preStL := getPreStL getMsgPrefix? msg getMsgTag msg = 'line => - [$optKeyBlanks, '"%x1" , :preStL,_ + [$optKeyBlanks, '"%1" , :preStL,_ getMsgText msg] posStL := getPosStL msg optKey := |