summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKathy Gray2014-10-30 10:11:23 +0000
committerKathy Gray2014-10-30 10:11:33 +0000
commitf0121963e7bbeef2ce1fe041a186b142855b9b82 (patch)
treea2df82ab02073d454d4d9afcd259bfaef7fea5b6
parentc73a60e9aac77bdf8d3a7604f11739d01e9f7029 (diff)
Add case to neg for interp_lib
-rw-r--r--src/lem_interp/interp_lib.lem1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/lem_interp/interp_lib.lem b/src/lem_interp/interp_lib.lem
index 20bf11b5..feb99c02 100644
--- a/src/lem_interp/interp_lib.lem
+++ b/src/lem_interp/interp_lib.lem
@@ -186,6 +186,7 @@ let rec neg v = match v with
| L_zero -> L_one end) la)
| V_unknown -> V_unknown
| V_track v r -> taint (neg v) r
+ | V_tuple [v] -> neg v
end
;;