[openfirmware] [commit] r2244 - forth/lib

[repository service]

Author: wmb
Date: Sat Jun  4 08:48:27 2011
New Revision: 2244
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2244

Log:
Fixed decompiler problem - it was failing to display the names of some data types.  The code to display them existed, but wasn't enabled due to a search order problem.

Modified:
   forth/lib/objects.fth

Modified: forth/lib/objects.fth
==============================================================================
--- forth/lib/objects.fth	Sat Jun  4 00:56:50 2011	(r2243)
+++ forth/lib/objects.fth	Sat Jun  4 08:48:27 2011	(r2244)
@@ -160,6 +160,7 @@
       -level		\ Exit temporary compile state, perhaps run word
 ;
 
+also hidden
 [ifdef] object-definer
 : (object-definer)  ( action-acf -- definer )
    dup /n -  @                 ( action-acf #actions )
@@ -172,8 +173,9 @@
       ta1+  dup  probably-cfa?
    until
 ;
-also hidden  ' (object-definer) is object-definer  previous
+' (object-definer) is object-definer
 [then]
+previous
 
 \ action-compiler: to
 action-compiler: addr