Put no space between function name and arguments

ChangeLog

@@ -1,3 +1,8 @@
+2024-07-03  Waldek Hebisch  <[email protected]>
+
+	* src/interp/i-output.boot: Put no space between function
+	name and arguments
+
 2024-07-01  Waldek Hebisch  <[email protected]>
 
 	* src/algebra/fspace.spad: Re-apply change from 05-26

src/interp/i-output.boot

@@ -456,12 +456,11 @@ outputMapTran(op, x) ==
   outputMapTran0(op, first l, alias)
 
 outputMapTran0(op, argDef, alias) ==
-  arg := first argDef
-  def := rest  argDef
-  [arg',:def'] := simplifyMapPattern(argDef,alias)
-  arg' := outputTran arg'
-  if null arg' then arg' := '"()"
-  ['CONCATB, op, outputTran arg', "==", outputTran def']
+  [arg, :def] := simplifyMapPattern(argDef,alias)
+  arg := outputTran(arg)
+  if null(arg) then arg := '"()"
+  else if SYMBOLP(arg) then arg := ['PAREN, arg]
+  ['CONCATB, ['CONCAT, op, arg], "==", outputTran(def)]
 
 outputTranReduce ['REDUCE,op,.,body] ==
   ['CONCAT,op,"/",outputTran body]