From eec2f4bf0c5ca391f454e651be4ee2f0f06512b0 Mon Sep 17 00:00:00 2001 From: Waldek Hebisch Date: Wed, 3 Jul 2024 16:44:59 +0200 Subject: [PATCH] Put no space between function name and arguments --- ChangeLog | 5 +++++ src/interp/i-output.boot | 11 +++++------ 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index 8fa538453..465a0dc0a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2024-07-03 Waldek Hebisch + + * src/interp/i-output.boot: Put no space between function + name and arguments + 2024-07-01 Waldek Hebisch * src/algebra/fspace.spad: Re-apply change from 05-26 diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot index acd3c7a93..22ec7d56f 100644 --- a/src/interp/i-output.boot +++ b/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]