From 046f22a33deac5ecc10b42267bc7198bebb56352 Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Sun, 15 May 2016 20:11:21 +0900
Subject: [PATCH] adding optional third argument to default (non-chibi,
 non-srfi-23) string-contains

---
 lib/chibi/string.sld | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/chibi/string.sld b/lib/chibi/string.sld
index dce5e5bc..4c13ab28 100644
--- a/lib/chibi/string.sld
+++ b/lib/chibi/string.sld
@@ -73,10 +73,10 @@
     (import (only (srfi 13) string-contains)))
    (else
     (begin
-      (define (string-contains a b)
+      (define (string-contains a b . o)  ; really, stupidly slow
        (let ((alen (string-length a))
              (blen (string-length b)))
-         (let lp ((i 0))
+         (let lp ((i (if (pair? o) (car o) 0)))
            (and (<= (+ i blen) alen)
                 (if (string=? b (substring a i (+ i blen)))
                     i