From ca4b1b74d8e743f50f0db37f1b33265f46547f01 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 28 Dec 2010 23:39:44 +0000
Subject: Character constants clean up

---
 src/interp/pspad1.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/interp/pspad1.boot b/src/interp/pspad1.boot
index 8ba4e329..a9d40822 100644
--- a/src/interp/pspad1.boot
+++ b/src/interp/pspad1.boot
@@ -498,7 +498,7 @@ formatPrefix(op,arg,lbp,rbp,:options) ==
  
 formatPrefixOp(op,:options) ==
   qualification := IFCAR options
-  op=char '" " => format " ="
+  op = char " " => format " ="
   qualification or GETL(op,"Nud") and not MEMQ(op,$spadTightList) => 
     formatQual(op,qualification) and format " "
   format op
-- 
cgit v1.2.3