Commit 2de3e767 authored by Martijn Vervoort's avatar Martijn Vervoort
Browse files

bug fix: fold2St cannot deal with inifinite lists

parent a4cd7445
......@@ -1042,7 +1042,7 @@ where
build_type_identification dyn_type_code ui=:{ui_x={x_module_id=No}}
= (dyn_type_code,ui)
build_type_identification dyn_type_code ui=:{ui_x={x_module_id=Yes let_bind}}
# (let_info_ptr, ui) = let_ptr ui
# (let_info_ptr, ui) = let_ptr 1 ui
# letje
= Let { let_strict_binds = [],
let_lazy_binds = [let_bind],
......@@ -1607,7 +1607,7 @@ where
convertTypecode (TCE_UniType uni_vars type_code) ui
# (let_binds, ui) = createVariables uni_vars ui
(let_expr, ui) = convertTypecode type_code ui
(let_info_ptr,ui) = let_ptr ui
(let_info_ptr,ui) = let_ptr (length let_binds) ui
= ( Let { let_strict_binds = []
, let_lazy_binds = let_binds
, let_expr = let_expr
......@@ -1679,8 +1679,8 @@ where
adjustClassExpression symb_name expr ui
= (expr, ui)
let_ptr ui=:{ui_symbol_heap}
# (expr_info_ptr, ui_symbol_heap) = newPtr (EI_LetType (repeat empty_attributed_type)) ui_symbol_heap
let_ptr nr_of_binds ui=:{ui_symbol_heap}
# (expr_info_ptr, ui_symbol_heap) = newPtr (EI_LetType (repeatn nr_of_binds empty_attributed_type)) ui_symbol_heap
= (expr_info_ptr, {ui & ui_symbol_heap = ui_symbol_heap})
where
empty_attributed_type :: AType
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment