 
 : fc* ( string -- string )
   [
-  'statement' parse parse-result-ast ast-expression-values do-expressions
+  'statement' parse parse-result-ast values>> do-expressions
   ] { } make [ write ] each ;
 
 


M: ast-use (compile)
  "factor.use(\"" ,
  ast-use-name ,
  "\"," , ;

M: ast-in (compile)
  "factor.set_in(\"" ,
  ast-in-name ,
  "\"," , ;

M: ast-using (compile)
  "factor.using([" ,
  ast-using-names [
    "," ,
  ] [
    "\"" , , "\"" ,

  "," , ;

M: ast-identifier (literal)
  dup vocab>> [
   "factor.get_word(\"" ,
   dup vocab>> ,
   "\",\"" ,
   value>> ,
   "\")" ,
  ] [
   "factor.find_word(\"" , value>> , "\")" ,
  ] if ;

M: ast-identifier (compile)
