From def4da7bfc1f143b6a7a13a87895143909dc50c6 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 8 Apr 2009 08:21:20 +0000
Subject: 	* 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.

---
 src/interp/msg.boot | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/interp/msg.boot')

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 =>
-- 
cgit v1.2.3