compiler.units: fix modify-code-heap example.

Make sure ``foo`` has the same stack effect as the quotation that is
set on ``foo`` with ``modify-code-heap``.  The symbol had a stack
effect of ( -- x ) since it pushes itself when it is called. The
quotation in the example had stack effect ( -- ).

diff --git a/core/compiler/units/units-docs.factor b/core/compiler/units/units-docs.factor
index a65dddb81aef7d926017a52a011e90c46f270fd6..8fb41c24a5ee542857c159190f6f0d46bf12796c 100644 (file)
--- a/core/compiler/units/units-docs.factor
+++ b/core/compiler/units/units-docs.factor
@@ -104,7 +104,8 @@ $nl
   "Manually creating a word using the non-optimizing compiler:"
   { $example
     "USING: compiler.units io ;"
-    "IN: test SYMBOL: foo"
+    "IN: scratchpad"
+    ": foo ( -- ) ;"
     "{ { foo [ \"hello!\" write nl ] } } t t modify-code-heap foo"
     "hello!"
   }