We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 2b2d73e commit ae87dd1Copy full SHA for ae87dd1
saw-core/src/SAWCore/Simulator.hs
@@ -252,8 +252,8 @@ evalTermF cfg lam recEval tf env =
252
253
evalRecursor :: VRecursor l -> MValue l
254
evalRecursor vrec@(VRecursor d _k ps nixs motive _motiveTy ps_fs ty) =
255
- vFunList (replicate nixs "_") $ \ix_thunks ->
256
- pure $ VFun "_" $ \arg_thunk ->
+ vFunList [ "i" <> Text.pack (show n) | n <- [1 .. nixs] ] $ \ix_thunks ->
+ pure $ VFun "arg" $ \arg_thunk ->
257
do argv <- force arg_thunk
258
r_thunk <- delay (evalRecursor vrec)
259
case evalConstructor argv of
0 commit comments