From ed3cc365b0f80c8d8670071ed10c22037e58217a Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Thu, 23 Oct 2003 15:58:08 +0000
Subject: [PATCH] Fix for > (regexp-search? (posix-string->regexp "$") "test") 
 Error: exception 	 wrong-type-argument 	 (checked-record-ref
 '#{Unspecific} '#{Record-type 46 cre} 1)

by Peter Wang
---
 scsh/rx/re-high.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scsh/rx/re-high.scm b/scsh/rx/re-high.scm
index 3b4bbf4..c8bb345 100644
--- a/scsh/rx/re-high.scm
+++ b/scsh/rx/re-high.scm
@@ -33,8 +33,8 @@
      ((re-dsm? re)
       (check-cache re-dsm:posix set-re-dsm:posix))
 
-     ((re-bos? re) (or bos-cre (set! bos-cre (compile))))
-     ((re-eos? re) (or eos-cre (set! eos-cre (compile))))
+     ((re-bos? re) (if (not bos-cre) (set! bos-cre (compile))) bos-cre)
+     ((re-eos? re) (if (not eos-cre) (set! eos-cre (compile))) eos-cre)
 
      ((re-bol? re) (error "BOL regexp not supported in this implementation."))
      ((re-eol? re) (error "EOL regexp not supported in this implementation."))