Corrected the bug involving replicated SEQs that are empty

This commit is contained in:
Neil Brown 2008-02-01 11:45:21 +00:00
parent d3ad2e7af6
commit 30e890ef02

View File

@ -356,7 +356,8 @@ buildFlowGraph funcs s
Right (s,e) ->
do addEdge ESeq n s
addEdge ESeq e n
Left _ -> return ()
Left False -> addEdge ESeq n n
Left True -> throwError $ show m ++ " SEQ replicator had non-joined up body when building flow-graph"
return $ Right (n,n)
_ -> throwError $ "Cannot have replicators inside context: " ++ show outer