From b8ea2a7e1dd82523bc4afe544e4473b91e2bc105 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Tue, 23 Oct 2007 00:40:44 +0000 Subject: * g-util.boot (formatUnabbreviatedSig): Translate '$' to '%' before printing. --- src/interp/ChangeLog | 5 +++++ src/interp/g-util.boot | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) (limited to 'src/interp') diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog index 14955f59..784c6364 100644 --- a/src/interp/ChangeLog +++ b/src/interp/ChangeLog @@ -1,3 +1,8 @@ +2007-10-22 Gabriel Dos Reis + + * g-util.boot (formatUnabbreviatedSig): Translate '$' to '%' + before printing. + 2007-10-22 Gabriel Dos Reis * c-doc.boot.pamphlet (escapePercent): New. 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] -- cgit v1.2.3