diff options
Diffstat (limited to 'backend/backendpreprocess.icl')
| -rw-r--r-- | backend/backendpreprocess.icl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/backendpreprocess.icl b/backend/backendpreprocess.icl index 6b76e6c..92a47d7 100644 --- a/backend/backendpreprocess.icl +++ b/backend/backendpreprocess.icl @@ -159,8 +159,8 @@ instance sequence LetBind where # (vi, ss_varHeap) = readPtr var_info_ptr sequenceState.ss_varHeap non_alias_bound_var = case vi of VI_SequenceNumber _ -> bound_var - VI_Alias alias_bound_var-> alias_bound_var - ss_varHeap = writePtr lb_dst.fv_info_ptr (VI_Alias non_alias_bound_var) ss_varHeap + VI_AliasSequenceNumber alias_bound_var-> alias_bound_var + ss_varHeap = writePtr lb_dst.fv_info_ptr (VI_AliasSequenceNumber non_alias_bound_var) ss_varHeap -> { sequenceState & ss_varHeap = ss_varHeap } _ -> sequence lb_dst sequenceState |