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