Commit 51d1ef80 authored by bguillaum's avatar bguillaum

tmp fix of new_neighbour (waiting for activate.…)

git-svn-id: svn+ssh:// 7838e531-6607-4d57-9587-6c381814729c
parent dbdf2786
......@@ -51,9 +51,12 @@ module Command = struct
let build ?param (kai, kei) table locals ast_command =
let pid_of_act_id = function
| (node_name, None) -> Pat (Pid.Pos ( node_name table))
| (node_name, Some n) -> Act (Pid.Pos ( node_name table), n) in
let pid_of_act_id loc = function
| (node_name, Some n) -> Act (Pid.Pos ( ~loc node_name table), n)
| (node_name, None) ->
try (* TODO: remove with activate *)
Pat (Pid.Pos ( ~loc node_name table))
with _ -> New node_name in
let check_act_id loc act_id kai =
if not (List.mem act_id kai)
Markdown is supported
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment