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

bootstrap.syntax: more words lowercased.

locals-and-roots
Doug Coleman 2016-06-03 11:29:53 -07:00
parent 9f40bd3bac
commit 8025b52f2a
2 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
core/bootstrap/syntax.factor
View File

@ -22,6 +22,7 @@ IN: bootstrap.syntax
"defer:" "defer:"
"ERROR:" "ERROR:"
"FORGET:" "FORGET:"
"forget:"
"GENERIC#" "GENERIC#"
"GENERIC:" "GENERIC:"
"HOOK:" "HOOK:"
@ -35,6 +36,7 @@ IN: bootstrap.syntax
"main:" "main:"
"MATH:" "MATH:"
"MIXIN:" "MIXIN:"
"mixin:"
"NAN:" "NAN:"
"nan:" "nan:"
"P\"" "P\""
@ -45,15 +47,14 @@ IN: bootstrap.syntax
"PRIVATE>" "PRIVATE>"
"SBUF\"" "SBUF\""
"SINGLETON:" "SINGLETON:"
"singleton:"
"SINGLETONS:" "SINGLETONS:"
"BUILTIN:" "BUILTIN:"
"builtin:"
"SYMBOL:" "SYMBOL:"
"symbol:" "symbol:"
"SYMBOLS:" "SYMBOLS:"
"CONSTANT:" "CONSTANT:"
"TUPLE:" "TUPLE:"
"final"
"SLOT:" "SLOT:"
"T{" "T{"
"UNION:" "UNION:"
@ -61,6 +62,7 @@ IN: bootstrap.syntax
"USE:" "USE:"
"use:" "use:"
"UNUSE:" "UNUSE:"
"unuse:"
"USING:" "USING:"
"QUALIFIED:" "QUALIFIED:"
"QUALIFIED-WITH:" "QUALIFIED-WITH:"
@ -82,12 +84,14 @@ IN: bootstrap.syntax
"foldable" "foldable"
"inline" "inline"
"recursive" "recursive"
"final"
"@delimiter" "@delimiter"
"@deprecated" "@deprecated"
"@flushable" "@flushable"
"@foldable" "@foldable"
"@inline" "@inline"
"@recursive" "@recursive"
"@final"
"t" "t"
"{" "{"
"}" "}"

13
core/syntax/syntax.factor
View File

@ -78,6 +78,7 @@ IN: bootstrap.syntax
"use:" [ scan-token use-vocab ] define-core-syntax "use:" [ scan-token use-vocab ] define-core-syntax
"UNUSE:" [ scan-token unuse-vocab ] define-core-syntax "UNUSE:" [ scan-token unuse-vocab ] define-core-syntax
"unuse:" [ scan-token unuse-vocab ] define-core-syntax
"USING:" [ ";" [ use-vocab ] each-token ] define-core-syntax "USING:" [ ";" [ use-vocab ] each-token ] define-core-syntax
@ -222,6 +223,9 @@ IN: bootstrap.syntax
"MIXIN:" [ "MIXIN:" [
scan-new-class define-mixin-class scan-new-class define-mixin-class
] define-core-syntax ] define-core-syntax
"mixin:" [
scan-new-class define-mixin-class
] define-core-syntax
"INSTANCE:" [ "INSTANCE:" [
location [ location [
@ -240,6 +244,9 @@ IN: bootstrap.syntax
"SINGLETON:" [ "SINGLETON:" [
scan-new-class define-singleton-class scan-new-class define-singleton-class
] define-core-syntax ] define-core-syntax
"singleton:" [
scan-new-class define-singleton-class
] define-core-syntax
"TUPLE:" [ "TUPLE:" [
parse-tuple-definition define-tuple-class parse-tuple-definition define-tuple-class
@ -248,6 +255,9 @@ IN: bootstrap.syntax
"final" [ "final" [
last-word make-final last-word make-final
] define-core-syntax ] define-core-syntax
"@final" [
last-word make-final
] define-core-syntax
"SLOT:" [ "SLOT:" [
scan-token define-protocol-slot scan-token define-protocol-slot
@ -266,6 +276,9 @@ IN: bootstrap.syntax
"FORGET:" [ "FORGET:" [
scan-object forget scan-object forget
] define-core-syntax ] define-core-syntax
"forget:" [
scan-object forget
] define-core-syntax
"(" [ "(" [
")" parse-effect suffix! ")" parse-effect suffix!