diff options
author | Sébastien Dailly <sebastien@chimrod.com> | 2018-08-02 19:44:49 +0200 |
---|---|---|
committer | Sébastien Dailly <sebastien@chimrod.com> | 2018-08-02 19:44:49 +0200 |
commit | c20b6dd7533775eaed045950e04175b020ac52c4 (patch) | |
tree | 3b61fbfecd8d161808fb22b4c7f9b213335f9072 /src/sheet.ml | |
parent | a0ea857685804735d60f19a166274745d8785e62 (diff) |
Update expression evaluation
Diffstat (limited to 'src/sheet.ml')
-rw-r--r--[-rwxr-xr-x] | src/sheet.ml | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/src/sheet.ml b/src/sheet.ml index 4984bde..151965e 100755..100644 --- a/src/sheet.ml +++ b/src/sheet.ml @@ -240,12 +240,7 @@ module Raw = struct let paste catalog id shift content t = begin
let expr = Expression.shift shift content.expr in
- let f cell t =
- { cell with
- expr = expr ;
- value = Some (Expression.eval expr catalog (fun id -> (PageMap.find id t).value))
- } in
- add_element catalog id f t
+ add id expr catalog t
end
let get_sink id t =
|