suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Corrected the bug involving replicated SEQs that are empty

Browse Source
This commit is contained in:
Neil Brown 2008-02-01 11:45:21 +00:00
parent d3ad2e7af6
commit 30e890ef02
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
common/FlowGraph.hs
View File

@ -356,7 +356,8 @@ buildFlowGraph funcs s
Right (s,e) -> Right (s,e) ->
do addEdge ESeq n s do addEdge ESeq n s
addEdge ESeq e n 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) return $ Right (n,n)
_ -> throwError $ "Cannot have replicators inside context: " ++ show outer _ -> throwError $ "Cannot have replicators inside context: " ++ show outer