set data adjusted
git-svn-id: https://projects.brucker.ch/su4sml/svn/su4sml/trunk@7935 3260e6d1-4efc-4170-b0a7-36055960796d
This commit is contained in:
parent
8f9d1dc99d
commit
efbad20313
|
@ -460,7 +460,7 @@ fun check_wfcs model wfcs =
|
|||
then [(check_wfc model a)]
|
||||
else
|
||||
let
|
||||
val depending_wfpos = List.map (set_data (get_wfpo supported)) depends
|
||||
val depending_wfpos = List.map (fn m => (set_data data (get_wfpo supported m))) depends
|
||||
val depending_wfcs = List.filter (fn b =>
|
||||
case (WFCPOG.apply_of b) of
|
||||
WFCPOG.WFC(x) => true
|
||||
|
@ -501,7 +501,7 @@ fun generate_pos model pos =
|
|||
then [(generate_po model a)]
|
||||
else
|
||||
let
|
||||
val depending_wfpos = List.map (set_data (get_wfpo supported)) depends
|
||||
val depending_wfpos = List.map (fn m => (set_data data (get_wfpo supported m))) depends
|
||||
val depending_wfcs = List.filter (fn b =>
|
||||
case (WFCPOG.apply_of b)of
|
||||
WFCPOG.WFC(x) => true
|
||||
|
|
Loading…
Reference in New Issue