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

modern.out: more arities

locals-and-roots
Doug Coleman 2016-06-27 20:52:03 -07:00
parent 03a78f06e3
commit 662c96ebe4
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -39,6 +39,18 @@ CONSTANT: janky-arities H{
`SOLUTION 1 --
`OPCODE 1 --
`CYCLES 1 --
`MIXIN 1 --
`SLOT 1 --
`MAIN 1 --
`SPECIALIZED-ARRAY 1 --
`SPECIALIZED-VECTOR 1 --
`8-BIT 1 --
`TUPLE-ARRAY 1 --
`C-TYPE 1 --
`LIBRARY 1 --
`DESTRUCTOR 1 --
`COMPONENT 1 --
`FRAMEWORK 1 --
`ALIAS 2 --
`ARITY 2 --
@ -47,6 +59,7 @@ CONSTANT: janky-arities H{
`INSTANCE 2 --
`GENERIC 2 --
`PRIMITIVE 2 --
`QUALIFIED 2 --
`GENERIC# 3 --
`HOOK 3
@ -248,7 +261,7 @@ M: uppercase-colon-literal fixup-arity
! dup first " ;" >>closing-tag drop
] [
drop
dup closing-tag>> [ closing-tag-required2 ] unless
dup closing-tag>> [ B closing-tag-required2 ] unless
] if ;
M: less-than-literal fixup-arity