First step to update [proc]

Author: coke

build/Makefile.in

@@ -121,13 +121,16 @@ GEN_SOURCES = \
 all: $(PARTCL_EXE) .revision
 
 src/Partcl.pir: $(GEN_SOURCES) 
-src/Partcl/commands.pm: $(COMMANDS) $(HELPERS) src/init.pir src/TclList.pir
-	echo "use src::init;"     > src/Partcl/commands.pm
-	echo "use src::TclList;" >> src/Partcl/commands.pm
-	echo "class Builtins {"  >> src/Partcl/commands.pm
-	cat $(COMMANDS)          >> src/Partcl/commands.pm
-	echo "}"                 >> src/Partcl/commands.pm
-	cat $(HELPERS)           >> src/Partcl/commands.pm
+src/Partcl/commands.pm: $(COMMANDS) $(HELPERS) src/init.pir src/TclList.pir \
+    src/Partcl/Actions.pir src/Partcl/Compiler.pir
+	echo "use src::init;"              > src/Partcl/commands.pm
+	echo "use src::TclList;"          >> src/Partcl/commands.pm
+	echo "use src::Partcl::Actions;"  >> src/Partcl/commands.pm
+	echo "use src::Partcl::Compiler;" >> src/Partcl/commands.pm
+	echo "class Builtins {"           >> src/Partcl/commands.pm
+	cat $(COMMANDS)                   >> src/Partcl/commands.pm
+	echo "}"                          >> src/Partcl/commands.pm
+	cat $(HELPERS)                    >> src/Partcl/commands.pm
 
 src/Internals.pm: src/Partcl/commands.pir src/init.pm
 src/init.pm: src/TclLexPad.pir src/TclArray.pir

src/Partcl/commands/proc.pm

@@ -8,7 +8,7 @@ method proc(*@args) {
     my $body := @args[2];
 
     my $parse :=
-        Partcl::Grammar.parse( $body, :rule<TOP_proc>, :actions(Partcl::Actions) );
+        Partcl::Compiler.parse( $body, :rule<TOP_proc>, :actions(Partcl::Actions) );
     my $block    := $parse.ast;
     my @params   := $args.getList();
     my @argsInfo := pir::new__PS('TclList');