diff --git a/core-locals.factor b/core-locals.factor index b17e66508b..fe1ea3fbda 100644 --- a/core-locals.factor +++ b/core-locals.factor @@ -17,6 +17,8 @@ USE: delegate.private << FORGET: @ >> << FORGET: POSTPONE: [| >> << FORGET: POSTPONE: [let >> +<< FORGET: POSTPONE: IH{ >> + SYNTAX: :: (::) define-declared ; 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 @@ -85,4 +99,7 @@ SYNTAX: HINTS: [ "." swap subseq? ] reject [ H{ { CHAR: / CHAR: . } } substitute ] map [ vocab-exists? ] filter -[ reload ] each \ No newline at end of file +[ reload ] each + +"fry" reload +"bootstrap.image" reload \ No newline at end of file diff --git a/core/bootstrap/syntax.factor b/core/bootstrap/syntax.factor index eccd30c4a1..779938f362 100644 --- a/core/bootstrap/syntax.factor +++ b/core/bootstrap/syntax.factor @@ -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 "t" "syntax" lookup-word define-symbol