src/SfpLang.g in sfp-0.3.8 vs src/SfpLang.g in sfp-0.3.9

@@ -328,17 +328,20 @@
 	:	reference equals_op value NL+
 		{	@now[$reference.val] = $value.val	}
 	;
 
 procedure
-	:	('procedure'|'sub') ID
+	:	{  @synchornized = false  }
+		('synchronized' { @synchronized = true })?
+		('procedure'|'sub') ID
 		{
 			@now[$ID.text] = { '_self' => $ID.text,
 				'_context' => 'procedure',
 				'_parent' => @now,
 				'_cost' => 1,
 				'_condition' => { '_context' => 'constraint', '_type' => 'and' },
-				'_effect' => { '_context' => 'effect', '_type' => 'and' }
+				'_effect' => { '_context' => 'effect', '_type' => 'and' },
+				'_synchronized' => @synchronized,
 			}
 			@now = @now[$ID.text]
 		}
 		parameters? '{' NL* 
 		(	'cost' equals_op NUMBER