diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/ChangeLog | 5 | ||||
| -rw-r--r-- | src/interp/g-util.boot | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog index 14955f59..784c6364 100644 --- a/src/interp/ChangeLog +++ b/src/interp/ChangeLog @@ -1,5 +1,10 @@ 2007-10-22 Gabriel Dos Reis <gdr@cs.tamu.edu> + * g-util.boot (formatUnabbreviatedSig): Translate '$' to '%' + before printing. + +2007-10-22 Gabriel Dos Reis <gdr@cs.tamu.edu> + * c-doc.boot.pamphlet (escapePercent): New. (transformAndRecheckComments): Use it. diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot index ae571bd9..5908287c 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -345,8 +345,8 @@ spadThrowBrightly x == --% Type Formatting Without Abbreviation formatUnabbreviatedSig sig == - null sig => ["() -> ()"] - [target,:args] := sig + null sig => ['"() -> ()"] + [target,:args] := dollarPercentTran sig target := formatUnabbreviated target null args => ['"() -> ",:target] null rest args => [:formatUnabbreviated QCAR args,'" -> ",:target] |