msyds/rlp
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases 2 Wiki Activity

be less eager in conditional primitives

Browse Source 
not quite sure what i was thinking earlier. in `if# c t f`, there is no reason for `t` or `f` to be strict under any circumstance.
This commit is contained in:
crumbtoo
2023-11-14 20:35:38 -07:00
parent 535c059afc
commit ad94413100
1 changed files with 0 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/TIM.hs
View File

@@ -262,18 +262,12 @@ step st =
primStep _ IfP (TiState s d h g sts) = TiState s' d' h' g sts primStep _ IfP (TiState s d h g sts) = TiState s' d' h' g sts
where where
s' | needsEval cn = [c] s' | needsEval cn = [c]
| isTrue, needsEval tn = [t]
| not isTrue, needsEval fn = [f]
| otherwise = drop 3 s | otherwise = drop 3 s
d' | needsEval cn = drop 1 s : d d' | needsEval cn = drop 1 s : d
| isTrue, needsEval tn = drop 2 s : d
| not isTrue, needsEval fn = drop 3 s : d
| otherwise = d | otherwise = d
h' | needsEval cn = h h' | needsEval cn = h
| isTrue, needsEval tn = h
| not isTrue, needsEval fn = h
| otherwise = | otherwise =
update h rootAddr (NInd $ if isTrue then t else f) update h rootAddr (NInd $ if isTrue then t else f)