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

core: fix POSTPONE:

locals-and-roots
Doug Coleman 2016-06-03 11:59:28 -07:00
parent 7226b2b45d
commit 32b0753cad
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
core/bootstrap/syntax.factor
View File

@ -56,6 +56,7 @@ in: bootstrap.syntax
"CONSTANT:" "CONSTANT:"
"TUPLE:" "TUPLE:"
"SLOT:" "SLOT:"
"slot:"
"T{" "T{"
"UNION:" "UNION:"
"INTERSECTION:" "INTERSECTION:"

12
core/syntax/syntax.factor
View File

@ -99,6 +99,7 @@ in: bootstrap.syntax
] define-core-syntax ] define-core-syntax
"NAN:" [ 16 scan-base <fp-nan> suffix! ] define-core-syntax "NAN:" [ 16 scan-base <fp-nan> suffix! ] define-core-syntax
"nan:" [ 16 scan-base <fp-nan> suffix! ] define-core-syntax
"f" [ f suffix! ] define-core-syntax "f" [ f suffix! ] define-core-syntax
@ -110,6 +111,14 @@ in: bootstrap.syntax
} cond suffix! } cond suffix!
] define-core-syntax ] define-core-syntax
"char:" [
lexer get parse-raw [ "token" throw-unexpected-eof ] unless* {
{ [ dup length 1 = ] [ first ] }
{ [ "\\" ?head ] [ next-escape >string "" assert= ] }
[ name>char-hook get call( name -- char ) ]
} cond suffix!
] define-core-syntax
"\"" [ parse-string suffix! ] define-core-syntax "\"" [ parse-string suffix! ] define-core-syntax
"SBUF\"" [ "SBUF\"" [
@ -262,6 +271,9 @@ in: bootstrap.syntax
"SLOT:" [ "SLOT:" [
scan-token define-protocol-slot scan-token define-protocol-slot
] define-core-syntax ] define-core-syntax
"slot:" [
scan-token define-protocol-slot
] define-core-syntax
"C:" [ "C:" [
scan-new-word scan-word define-boa-word scan-new-word scan-word define-boa-word