From 8041ff0692b7f16a09afb36cd35199d5021e63b2 Mon Sep 17 00:00:00 2001
From: Brian Campbell
Date: Fri, 11 May 2018 17:20:56 +0100
Subject: More builtin names in constant propagation

---
 src/monomorphise.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/monomorphise.ml b/src/monomorphise.ml
index 6dcd14ba..4f257712 100644
--- a/src/monomorphise.ml
+++ b/src/monomorphise.ml
@@ -856,7 +856,7 @@ let try_app (l,ann) (id,args) =
     | [E_aux (E_lit L_aux (L_num i,_),_); E_aux (E_lit L_aux (L_num j,_),_)] ->
        Some (E_aux (E_lit (L_aux (L_num (Big_int.shift_left i (Big_int.to_int j)),new_l)),(l,ann)))
     | _ -> None
-  else if is_id "mult_int" || is_id "mult_range" then
+  else if is_id "mult_atom" || is_id "mult_int" || is_id "mult_range" then
     match args with
     | [E_aux (E_lit L_aux (L_num i,_),_); E_aux (E_lit L_aux (L_num j,_),_)] ->
        Some (E_aux (E_lit (L_aux (L_num (Big_int.mul i j),new_l)),(l,ann)))
@@ -866,7 +866,7 @@ let try_app (l,ann) (id,args) =
     | [E_aux (E_lit L_aux (L_num i,_),_); E_aux (E_lit L_aux (L_num j,_),_)] ->
        Some (E_aux (E_lit (L_aux (L_num (Big_int.div i j),new_l)),(l,ann)))
     | _ -> None
-  else if is_id "add_range" then
+  else if is_id "add_atom" || is_id "add_int" || is_id "add_range" then
     match args with
     | [E_aux (E_lit L_aux (L_num i,_),_); E_aux (E_lit L_aux (L_num j,_),_)] ->
        Some (E_aux (E_lit (L_aux (L_num (Big_int.add i j),new_l)),(l,ann)))
-- 
cgit v1.2.3