From 167ce1c0d2af617f9919a78dfc35db424827a256 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 15 May 2016 17:16:30 -0700
Subject: [PATCH] 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.

---
 core-locals.factor           | 19 ++++++++++++++++++-
 core/bootstrap/syntax.factor | 12 ++++++++++++
 2 files changed, 30 insertions(+), 1 deletion(-)

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