Forbid recursive routines

logoPlayer/galgas-sources/logoPlayer-syntax.galgas

@@ -22,11 +22,11 @@ syntax logoPlayer_syntax (logoPlayer_lexique) {
   rule <routine> ?! @routineMap ioRoutineArray {
     $ROUTINE$
     $identifier$ ?let @lstring routineId
-    [ !? ioRoutineArray insertKey !routineId ]
     log routineId
     $BEGIN$
     <instructions> !? ioRoutineArray
     $END$
+    [ !? ioRoutineArray insertKey !routineId ]
   } 
 
   rule <instructions> ?! @routineMap ioRoutineArray {