aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/ChangeLog5
-rw-r--r--src/interp/g-util.boot4
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]