From f4fdbd6a6cb744b383a1e85b1f351a691ab568a6 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sat, 19 Apr 2008 20:56:36 -0500 Subject: [PATCH] Fix problem with words becoming uncompiled --- core/generator/generator.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/core/generator/generator.factor b/core/generator/generator.factor index 4eb2c0fe4e..390dc28d8e 100755 --- a/core/generator/generator.factor +++ b/core/generator/generator.factor @@ -40,16 +40,16 @@ SYMBOL: current-label-start compiled-stack-traces? compiling-word get f ? 1vector literal-table set - f compiling-word get compiled get set-at ; + f compiling-label get compiled get set-at ; -: finish-compiling ( literals relocation labels code -- ) +: save-machine-code ( literals relocation labels code -- ) 4array compiling-label get compiled get set-at ; : with-generator ( node word label quot -- ) [ >r begin-compiling r> { } make fixup - finish-compiling + save-machine-code ] with-scope ; inline GENERIC: generate-node ( node -- next )