From f5d958ac91b3d74dc10a2df7b3b44022ba54afc0 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Thu, 2 May 2002 11:46:44 +0000
Subject: [PATCH] Added { and } to the characters to be quoted within literal
 strings.

---
 scsh/rx/posixstr.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scsh/rx/posixstr.scm b/scsh/rx/posixstr.scm
index 4a763f5..bccee2e 100644
--- a/scsh/rx/posixstr.scm
+++ b/scsh/rx/posixstr.scm
@@ -319,7 +319,7 @@
 ;;; quote the special chars with backslashes.
 
 (define translate-string
-  (let ((specials (string->char-set "[.*?()|\\$^+")))
+  (let ((specials (string->char-set "{}[.*?()|\\$^+")))
     (lambda (s)
       (let ((len (string-length s)))
 	(if (zero? len)