From 707e875456b7d8dcc37aaa8f92b16e984b534045 Mon Sep 17 00:00:00 2001
From: nsensfel <SpamShield0@noot-noot.org>
Date: Fri, 26 Apr 2019 15:32:33 +0200
Subject: Adds an optimization for NOPs in sequences.

---
 src/ataxic.erl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/ataxic.erl b/src/ataxic.erl
index 4a1bd8b..195d77f 100644
--- a/src/ataxic.erl
+++ b/src/ataxic.erl
@@ -337,7 +337,8 @@ update_value (OP) -> #value{ op = OP }.
 -spec optimize (basic()) -> basic().
 optimize (#seq{ ops = OPs }) ->
    S0OPs = flatten_sequence(OPs),
-   optimize_update_field_sequence(S0OPs, []);
+   S1OPs = lists:filter(fun (E) -> (not is_record(E, current)) end, S0OPs),
+   optimize_update_field_sequence(S1OPs, []);
 optimize (OP) -> OP.
 
 %%%%% APPLY TO %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-- 
cgit v1.2.3-70-g09d2