<RefEntry id="repl-substringX3F"> <!-- This file is generated automatically from the DSSSL source. --> <!-- Do not edit this file! --> <?html-filename repl-substring-p.html> <RefMeta> <RefEntryTitle>repl-substring?</RefEntryTitle> <RefMiscInfo Role="file">dblib.dsl</RefMiscInfo> </RefMeta> <RefNameDiv> <RefName>repl-substring?</RefName> <RefPurpose>Returns true if the specified substring can be replaced</RefPurpose> </RefNameDiv> <RefSynopsisDiv><Title>Synopsis</Title> <Synopsis> (repl-substring? string target pos) </Synopsis> </RefSynopsisDiv> <RefSect1><Title>Description</Title> <para> Returns <literal>#t</literal> if <literal>target</literal> occurs at <literal>pos</literal> in <literal>string</literal>.</para> </RefSect1> <RefSect1><Title>Author</Title> <para> Norman Walsh, <ndw@nwalsh.com> </para> </RefSect1> <RefSect1><Title>Source Code</Title> <ProgramListing> (define (repl-substring? string target pos) ;; Returns true if the specified substring can be replaced (let* ((could-match (<= (+ pos (string-length target)) (string-length string))) (match (if could-match (substring string pos (+ pos (string-length target))) ""))) (and could-match (string=? match target)))) </ProgramListing> </RefSect1> </RefEntry>