Associate routine with instruction list

logoPlayer/galgas-sources/logoPlayer-semantics.galgas

@@ -1,4 +1,6 @@
 map @routineMap {
+  @instructionList mInstructionList
+
   insert insertKey error message "the '%K' routine has been already declared"
   search searchKey error message "the '%K' routine is not declared"
 }

logoPlayer/galgas-sources/logoPlayer-syntax.galgas

@@ -31,7 +31,7 @@ syntax logoPlayer_syntax (logoPlayer_lexique) {
     $BEGIN$
     <instructions> !? ioRoutineArray !? routineProgram
     $END$
-    [ !? ioRoutineArray insertKey !routineId ]
+    [ !? ioRoutineArray insertKey !routineId !routineProgram ]
   } 
 
   rule <instructions> ?! @routineMap ioRoutineArray ?! @instructionList program {
@@ -92,7 +92,9 @@ syntax logoPlayer_syntax (logoPlayer_lexique) {
   rule <call_routine> ?! @routineMap ioRoutineArray ?! @instructionList program {
     $CALL$
     $identifier$ ?let @lstring routineId
-    [ ioRoutineArray searchKey !routineId ]
+    @instructionList routineProgram
+    [ ioRoutineArray searchKey !routineId ?routineProgram ]
+    program += routineProgram
   }
     
 }