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

core/bootstrap: add all the new parsing words. kind of redundant but they gotta be here! 

core-locals: add a few more commands that do something for me. reloading fry seems to help.
locals-and-roots
Doug Coleman 2016-05-15 17:16:30 -07:00
parent 77647918b9
commit 167ce1c0d2
2 changed files with 30 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
core-locals.factor
View File

@ -17,6 +17,8 @@ USE: delegate.private
<< FORGET: @ >> << FORGET: @ >>
<< FORGET: POSTPONE: [| >> << FORGET: POSTPONE: [| >>
<< FORGET: POSTPONE: [let >> << FORGET: POSTPONE: [let >>
<< FORGET: POSTPONE: IH{ >>
SYNTAX: :: (::) define-declared ; SYNTAX: :: (::) define-declared ;
SYNTAX: M:: (M::) define ; SYNTAX: M:: (M::) define ;
@ -76,6 +78,18 @@ SYNTAX: HINTS:
"::" "M::" "MEMO:" "MEMO::" "MACRO:" "MACRO::" "IDENTITY-MEMO:" "IDENTITY-MEMO::" "TYPED:" "TYPED::"
":>" "[|" "[let" "MEMO["
"'["
"_"
"@"
"IH{"
"PROTOCOL:"
"CONSULT"
"BROADCAST:"
"SLOT-PROTOCOL:"
"HINTS:"
H{ } clone root-cache set-global H{ } clone root-cache set-global
@ -85,4 +99,7 @@ SYNTAX: HINTS:
[ "." swap subseq? ] reject [ "." swap subseq? ] reject
[ H{ { CHAR: / CHAR: . } } substitute ] map [ H{ { CHAR: / CHAR: . } } substitute ] map
[ vocab-exists? ] filter [ vocab-exists? ] filter
[ reload ] each [ reload ] each
"fry" reload
"bootstrap.image" reload

12
core/bootstrap/syntax.factor
View File

@ -94,6 +94,18 @@ IN: bootstrap.syntax
"<<<<<<<" "<<<<<<<"
"=======" "======="
">>>>>>>" ">>>>>>>"
"::" "M::" "MEMO:" "MEMO::" "MACRO:" "MACRO::" "IDENTITY-MEMO:" "IDENTITY-MEMO::" "TYPED:" "TYPED::"
":>" "[|" "[let" "MEMO["
"'["
"_"
"@"
"IH{"
"PROTOCOL:"
"CONSULT"
"BROADCAST:"
"SLOT-PROTOCOL:"
"HINTS:"
} [ "syntax" create-word drop ] each } [ "syntax" create-word drop ] each
"t" "syntax" lookup-word define-symbol "t" "syntax" lookup-word define-symbol