From d728f9342f6f996fc4d83f6b4d88ba4217daafdc Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 27 Jun 2016 20:48:12 -0700 Subject: [PATCH] modern.out: disable arity, add more arities --- core/modern/out/out.factor | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/core/modern/out/out.factor b/core/modern/out/out.factor index 2e7445d987..5504671873 100644 --- a/core/modern/out/out.factor +++ b/core/modern/out/out.factor @@ -35,6 +35,10 @@ CONSTANT: janky-arities H{ `B 1 -- `MAIN 1 -- `LEFT-DECORATOR 1 -- + `ABOUT 1 -- + `SOLUTION 1 -- + `OPCODE 1 -- + `CYCLES 1 -- `ALIAS 2 -- `ARITY 2 -- @@ -240,7 +244,7 @@ M: uppercase-colon-literal fixup-arity dup tag>> janky-arities ?at [ $[ _ swap [ any-comment? not ] cut-nth-match swap ] change-payload swap 2array - dup first f >>closing-tag drop + ! dup first f >>closing-tag drop ! dup first " ;" >>closing-tag drop ] [ drop