Update of /cvsroot/scsh/scsh-0.6/scsh/rx
In directory usw-pr-cvs1:/tmp/cvs-serv16124
Modified Files:
packages.scm
Log Message:
Correct types for MATCH:START, MATCH:END, and MATCH:SUBSTRING.
Index: packages.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/rx/packages.scm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** packages.scm 2001/03/23 10:52:09 1.5
--- packages.scm 2001/07/07 18:50:19 1.6
***************
*** 165,171 ****
basic-re-interface
(export (regexp-match? (proc (:value) :boolean))
! (match:start (proc (:value :exact-integer)
:value))
! (match:end (proc (:value :exact-integer)
:value))
! (match:substring (proc (:value :exact-integer)
:value))
(clean-up-cres (proc () :unspecific))
(regexp-search (proc (:value :string &opt
:exact-integer)
--- 165,171 ----
basic-re-interface
(export (regexp-match? (proc (:value) :boolean))
! (match:start (proc (:value &opt :exact-integer)
:value))
! (match:end (proc (:value &opt :exact-integer)
:value))
! (match:substring (proc (:value &opt
:exact-integer) :value))
(clean-up-cres (proc () :unspecific))
(regexp-search (proc (:value :string &opt
:exact-integer)
|