Smarter FORGET:

diff --cc core/bootstrap/primitives.factor
index c9329a2c9f0b23a803eefbffc8594a7d31b9f301,de4c375a2aa0ce024092d2c2b02254c5e3cb05d6..9858ccb5ec6635a0c76a4369634594f09dca00a0
--- 1/core/bootstrap/primitives.factor
--- 2/core/bootstrap/primitives.factor
+++ b/core/bootstrap/primitives.factor
@@@ -5,11 -5,11 +5,8 @@@ USING: alien arrays byte-arrays generi
  hashtables.private io kernel math namespaces parser sequences
  strings vectors words quotations assocs layouts classes tuples
  kernel.private vocabs vocabs.loader source-files definitions
- slots classes.union words.private compiler.units ;
- 
- ! Some very tricky code creating a bootstrap embryo in the
- ! host image.
+ slots classes.union compiler.units ;
  
 -! Some very tricky code creating a bootstrap embryo in the
 -! host image.
 -
  "Creating primitives and basic runtime structures..." print flush
  
  load-help? off

diff --cc core/syntax/syntax.factor
index 310f513d361e283717a06e26d33ae852c44fb152,310f513d361e283717a06e26d33ae852c44fb152..b0a7ea19bd923ff74dfe4d9ee5de3b883391b376
--- 1/core/syntax/syntax.factor
--- 2/core/syntax/syntax.factor
+++ b/core/syntax/syntax.factor
@@@ -157,7 -157,7 +157,11 @@@ IN: bootstrap.synta
          [ construct-boa ] curry define-inline
      ] define-syntax
  
--    "FORGET:" [ scan use get assoc-stack forget ] define-syntax
++    "FORGET:" [
++        scan-word
++        dup parsing? [ V{ } clone swap execute first ] when
++        forget
++    ] define-syntax
  
      "(" [
          parse-effect word