aboutsummaryrefslogtreecommitdiff
path: root/src/interp/c-doc.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/c-doc.boot')
-rw-r--r--src/interp/c-doc.boot6
1 files changed, 3 insertions, 3 deletions
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]