git.iko.soy/rowtype-yoga/purescm
on bytevector help sign in
Fix generation for chezCond
commit0fc05ace26b45d8bdc92e79009bf175ddef7a69c authorpurefunctor <purefunctor@pm.me> dateTue 21 Mar 2023, 11:00 (4 years ago) parent88248f4
2 files changed+5−5
compare with bytevector
unifiedsplit
src/PureScript/Backend/Chez/Syntax.purs+3−3 test-snapshots/snapshots-output/Snapshot.Branch.ss+2−2
src/PureScript/Backend/Chez/Syntax.purs+3−3
@@ -290,13 +290,13 @@ toChezIdent i (Level l) = case i of
290290chezCond :: NonEmptyArray { c :: ChezExpr, e :: ChezExpr } -> Maybe ChezExpr -> ChezExpr
291291chezCond b o =
292292 let
293− b' :: ChezExpr
294− b' = List $ NonEmptyArray.toArray b <#> \{ c, e } -> List [ c, e ]
293+ b' :: Prim.Array ChezExpr
294+ b' = NonEmptyArray.toArray b <#> \{ c, e } -> List [ c, e ]
295295
296296 o' :: Prim.Array ChezExpr
297297 o' = Array.fromFoldable o <#> \x -> List [ Identifier "scm:else", x ]
298298 in
299− List $ [ Identifier "scm:cond", b' ] <> o'
299+ List $ [ Identifier "scm:cond" ] <> b' <> o'
300300
301301chezCurriedApplication :: ChezExpr -> NonEmptyArray ChezExpr -> ChezExpr
302302chezCurriedApplication f s = NonEmptyArray.foldl1 app $ NonEmptyArray.cons f s
test-snapshots/snapshots-output/Snapshot.Branch.ss+2−2
@@ -10,10 +10,10 @@
1010
1111 (scm:define g
1212 (scm:lambda (v0)
13− (scm:cond ((prim-op 1) (prim-op 2) (prim-op 3)) (scm:else 0))))
13+ (scm:cond (prim-op 1) (prim-op 2) (prim-op 3) (scm:else 0))))
1414
1515 (scm:define f
1616 (scm:lambda (x0)
1717 (scm:lambda (y1)
1818 (scm:lambda (z2)
19− (scm:cond ((x0 (scm:cond ((y1 (scm:cond ((z2 0)) (scm:else 1)))) (scm:else 2)))) (scm:else 3)))))))
19+ (scm:cond (x0 (scm:cond (y1 (scm:cond (z2 0) (scm:else 1))) (scm:else 2))) (scm:else 3)))))))