Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-compiler-and-rts
compiler
Commits
79c9891a
Commit
79c9891a
authored
Aug 14, 2018
by
John van Groningen
Browse files
use foldSt instead of seq map (seq will be removed from StdEnv)
parent
36703597
Changes
1
Hide whitespace changes
Inline
Side-by-side
frontend/trans.icl
View file @
79c9891a
...
...
@@ -744,7 +744,7 @@ where
body_strict
(
App
app
)
ap_vars
ro
fun_defs
fun_heap
#
(
is
,
fun_defs
,
fun_heap
)
=
app_indices
app
ro
fun_defs
fun_heap
#
lazy_args
=
insert_n_lazy_values_at_beginning
(
length
app_args
)
NotStrict
=
(
seq
(
map
add_strictness
is
)
lazy_args
,
fun_defs
,
fun_heap
)
=
(
foldSt
add_strictness
is
lazy_args
,
fun_defs
,
fun_heap
)
body_strict
_
_
ro
fun_defs
fun_heap
#
lazy_args
=
insert_n_lazy_values_at_beginning
(
length
app_args
)
NotStrict
=
(
lazy_args
,
fun_defs
,
fun_heap
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment