| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/ataxic.erl')
| -rw-r--r-- | src/ataxic.erl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/ataxic.erl b/src/ataxic.erl index 195d77f..4d829f3 100644 --- a/src/ataxic.erl +++ b/src/ataxic.erl @@ -126,7 +126,7 @@ -export([apply_to/2, matches/2]). --export([optimize/1]). +-export([optimize/1, is_constant/1]). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -378,3 +378,7 @@ matches (OP, Entry) -> true -> true; _ -> false end. + +-spec is_constant (basic()) -> boolean(). +is_constant (#const{}) -> true; +is_constant(_) -> false. |