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

modern: arity stuff

modern-harvey3
Doug Coleman 2019-10-24 19:18:01 -05:00
parent a8df2132f6
commit be6bc61830
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/modern/compiler/compiler.factor
View File

@ -58,7 +58,7 @@ ARITY: \HOOK: 3
ARITY: \IN: 1 ARITY: \IN: 1
ARITY: \INSTANCE: 2 ARITY: \INSTANCE: 2
ARITY: \MAIN: 1 ARITY: \MAIN: 1
ARITY: \MATH: 1 ARITY: \MATH: 2
ARITY: \MIXIN: 1 ARITY: \MIXIN: 1
ARITY: \PRIMITIVE: 2 ARITY: \PRIMITIVE: 2
ARITY: \QUALIFIED-WITH: 2 ARITY: \QUALIFIED-WITH: 2

7
extra/modern/manifest/manifest.factor
View File

@ -1,7 +1,8 @@
! Copyright (C) 2019 Doug Coleman. ! Copyright (C) 2019 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs combinators kernel modern USING: accessors arrays assocs combinators
sequences splitting.monotonic strings words ; combinators.short-circuit kernel modern sequences
splitting.monotonic strings words ;
IN: modern.manifest IN: modern.manifest
TUPLE: syntax-forms TUPLE: syntax-forms
@ -76,6 +77,7 @@ ERROR: key-exists val key assoc existing-value ;
"defer" "DEFER" add-ucolon-form "defer" "DEFER" add-ucolon-form
"error" "ERROR" add-ucolon-form "error" "ERROR" add-ucolon-form
"exclude" "EXCLUDE" add-ucolon-form "exclude" "EXCLUDE" add-ucolon-form
"forget" "FORGET" add-ucolon-form
"generic#" "GENERIC#" add-ucolon-form "generic#" "GENERIC#" add-ucolon-form
"generic" "GENERIC" add-ucolon-form "generic" "GENERIC" add-ucolon-form
"hints" "HINTS" add-ucolon-form "hints" "HINTS" add-ucolon-form
@ -166,6 +168,7 @@ ERROR: key-exists val key assoc existing-value ;
2 "C" add-ucolon-arity 2 "C" add-ucolon-arity
2 "CONSTANT" add-ucolon-arity 2 "CONSTANT" add-ucolon-arity
1 "DEFER" add-ucolon-arity 1 "DEFER" add-ucolon-arity
1 "FORGET" add-ucolon-arity
3 "GENERIC#" add-ucolon-arity 3 "GENERIC#" add-ucolon-arity
2 "GENERIC" add-ucolon-arity 2 "GENERIC" add-ucolon-arity
3 "HOOK" add-ucolon-arity 3 "HOOK" add-ucolon-arity