diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 6 | ||||
| -rw-r--r-- | src/interp/c-doc.boot | 6 |
2 files changed, 10 insertions, 2 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 5146627c..ca318df2 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2009-07-24 Gabriel Dos Reis <gdr@cs.tamu.edu> + + Fix SF/2798962 + * interp/c-doc.boot (checkDecorate): Don't insert formatting + braces in Spad mode. + 2009-07-16 Gabriel Dos Reis <gdr@cs.tamu.edu> * algebra/odeef.spad.pamphlet (ElementaryFunctionODESolver): Tidy. diff --git a/src/interp/c-doc.boot b/src/interp/c-doc.boot index ce5958d2..7355d14f 100644 --- a/src/interp/c-doc.boot +++ b/src/interp/c-doc.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 @@ -806,7 +806,9 @@ checkDecorate u == acc x = char '_$ or x = '"$" => ['"\$",:acc] x = char '_% or x = '"%" => ['"\%",:acc] - x = char '_, or x = '"," => ['",{}",:acc] + x = char '_, or x = '"," => + spadflag => ['",",:acc] + ['",{}",:acc] x = '"\spad" => ['"\spad",:acc] STRINGP x and DIGITP x.0 => [x,:acc] not spadflag and |