diff options
author | FrigoEU <simon.van.casteren@gmail.com> | 2019-07-31 15:13:18 +0200 |
---|---|---|
committer | FrigoEU <simon.van.casteren@gmail.com> | 2019-07-31 15:13:18 +0200 |
commit | 80e7bb6165a5ad6517b35f301228f56b58eef39c (patch) | |
tree | d9f3b42b6cb74ebacc43d4081e5d91aebbe7a20f /src/search.sml | |
parent | 83bab4581d9570e151b23db3b4de016600afa76d (diff) |
first iteration of "typeOf" command
Diffstat (limited to 'src/search.sml')
-rw-r--r-- | src/search.sml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/search.sml b/src/search.sml index 563496fe..5e4e135f 100644 --- a/src/search.sml +++ b/src/search.sml @@ -70,4 +70,12 @@ fun bindP (r, f) = ((x', pos), acc')) | Return x => Return x +fun bindPWithPos (r, f) = + case r of + Continue ((x, pos), acc) => + map (f (x, pos) acc, + fn (x', acc') => + ((x', pos), acc')) + | Return x => Return x + end |