Remove redundant instruction, lein release :minor

lspector · May 6, 2023 · e2c9d8c · e2c9d8c
1 parent 8f8c6dc
commit e2c9d8c
Showing 1 changed file with 0 additions and 15 deletions.
diff --git a/src/clojush/instructions/string.clj b/src/clojush/instructions/string.clj
@@ -215,21 215,6 @@
  :boolean
  (pop-item :string state))))))
 
-(define-registered
- string_contains ;;true if top string is a substring of second string; false otherwise
- ^{:stack-types [:string :boolean]}
- (fn [state]
- (if (empty? (rest (:string state)))
- state
- (let [sub (top-item :string state)
- full (stack-ref :string 1 state)
- result-boolean (if (<= 0 (.indexOf full sub))
- true
- false)]
- (push-item result-boolean
- :boolean
- (pop-item :string (pop-item :string state)))))))
-
 (define-registered
  string_containschar ; true if the top char is in the top string
  ^{:stack-types [:string :boolean :char]}