From 9ddf05bc7781163fbd6bd2b894337d8721de117a Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 28 Dec 2010 21:16:57 +0000
Subject: more cleanup

---
 src/interp/c-doc.boot | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/c-doc.boot b/src/interp/c-doc.boot
index 2208da20..6e5fb843 100644
--- a/src/interp/c-doc.boot
+++ b/src/interp/c-doc.boot
@@ -806,9 +806,9 @@ checkDecorate u ==
           =>
             u := v
             acc
-      x = char '_$ or x is '"$"  => ['"\$",:acc]
-      x = char '_% or x is '"%"  => ['"\%",:acc]
-      x = char '_, or x is '","  => 
+      char? x and x = char '_$ or x is '"$"  => ['"\$",:acc]
+      char? x and x = char '_% or x is '"%"  => ['"\%",:acc]
+      char? x and x = char '_, or x is '","  => 
         spadflag => ['",",:acc]
         ['",{}",:acc]
       x is '"\spad" => ['"\spad",:acc]
-- 
cgit v1.2.3