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