From e5de8c719c8582313080d651eb02f287a495d2f5 Mon Sep 17 00:00:00 2001
From: Pablo <pablo.edronkin@yahoo.com>
Date: Wed, 10 Jan 2024 11:02:44 -0300
Subject: [PATCH] Imrpoved functions.

---
 grsp3.scm | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/grsp3.scm b/grsp3.scm
index b1e06ca..511f434 100644
--- a/grsp3.scm
+++ b/grsp3.scm
@@ -5730,11 +5730,12 @@
 ;;   - "#<=".
 ;;   - "#!=".
 ;;   - "#=".
-;;   - "#eq".
+;;   - "#eq", string equals.
+;;   - "#ct", string contains.
 ;;
 ;; - p_a1: matrix.
 ;; - p_j1: column number.
-;; - p_n1: number.
+;; - p_n1: value.
 ;;
 ;; Output:
 ;;
@@ -5834,6 +5835,17 @@
 							      res3
 							      hm2
 							      ln1)))))
+
+
+		       ((equal? p_s1 "#ct")
+			
+			(cond ((equal? (equal? (string-contains n2 p_n1) #f) #f)
+			       (set! res2 (grsp-matrix-subexp res2 1 0))
+			       (set! hm2 (grsp-matrix-esi 2 res2))
+			       (set! res2 (grsp-matrix-subrep res2
+							      res3
+							      hm2
+							      ln1)))))
 		       
 		       ((equal? p_s1 "#=")