humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add 'env' parameter to gap_map.sml's mapper

Browse Source
This commit is contained in:
Humza Shahid
2025-02-13 12:01:40 +00:00
parent aa127b28fd
commit 9c32e53160
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/gap_map.sml
View File

@@ -71,7 +71,7 @@ struct
fun mapList (hd :: tl, acc, env) = fun mapList (hd :: tl, acc, env) =
let val hd = Vector.map (fn el => Map.map (el, env)) hd let val hd = Vector.map (fn el => Map.map (el, env)) hd
in mapList (tl, hd :: acc) in mapList (tl, hd :: acc, env)
end end
| mapList ([], acc, env) = List.rev acc | mapList ([], acc, env) = List.rev acc