Skip to content

Commit ae87dd1

Browse files
committed
saw-core: Change VFun variable names in evalRecursor.
1 parent 2b2d73e commit ae87dd1

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

saw-core/src/SAWCore/Simulator.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -252,8 +252,8 @@ evalTermF cfg lam recEval tf env =
252252

253253
evalRecursor :: VRecursor l -> MValue l
254254
evalRecursor vrec@(VRecursor d _k ps nixs motive _motiveTy ps_fs ty) =
255-
vFunList (replicate nixs "_") $ \ix_thunks ->
256-
pure $ VFun "_" $ \arg_thunk ->
255+
vFunList [ "i" <> Text.pack (show n) | n <- [1 .. nixs] ] $ \ix_thunks ->
256+
pure $ VFun "arg" $ \arg_thunk ->
257257
do argv <- force arg_thunk
258258
r_thunk <- delay (evalRecursor vrec)
259259
case evalConstructor argv of

0 commit comments

Comments
 (0)