[openfirmware] [commit] r2965 - forth/kernel

[repository service]

Author: quozl
Date: Wed May  2 07:48:42 2012
New Revision: 2965
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2965

Log:
kernel - fix metacompiler regression introduced in 2963

Modified:
   forth/kernel/forward.fth

Modified: forth/kernel/forward.fth
==============================================================================
--- forth/kernel/forward.fth	Wed May  2 01:56:20 2012	(r2964)
+++ forth/kernel/forward.fth	Wed May  2 07:48:42 2012	(r2965)
@@ -259,7 +259,7 @@
 \ compile a reference to it.  The STRING bar is stored within foo
 
 : compile-t  \ name  ( -- )
-   [compile] "  compile $compile-t
+   parse-word compile (") ",  compile $compile-t
 ; immediate
 \ LICENSE_BEGIN
 \ Copyright (c) 2006 FirmWorks