diff options
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 =
|