steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

modern.out: disable arity, add more arities

locals-and-roots
Doug Coleman 2016-06-27 20:48:12 -07:00
parent e0b5ddb07c
commit d728f9342f
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/modern/out/out.factor
View File

@ -35,6 +35,10 @@ CONSTANT: janky-arities H{
`B 1 -- `B 1 --
`MAIN 1 -- `MAIN 1 --
`LEFT-DECORATOR 1 -- `LEFT-DECORATOR 1 --
`ABOUT 1 --
`SOLUTION 1 --
`OPCODE 1 --
`CYCLES 1 --
`ALIAS 2 -- `ALIAS 2 --
`ARITY 2 -- `ARITY 2 --
@ -240,7 +244,7 @@ M: uppercase-colon-literal fixup-arity
dup tag>> janky-arities ?at [ dup tag>> janky-arities ?at [
$[ _ swap [ any-comment? not ] cut-nth-match swap ] change-payload $[ _ swap [ any-comment? not ] cut-nth-match swap ] change-payload
swap 2array swap 2array
dup first f >>closing-tag drop ! dup first f >>closing-tag drop
! dup first " ;" >>closing-tag drop ! dup first " ;" >>closing-tag drop
] [ ] [
drop drop