Welcome to the CHICKEN Scheme pasting service

utf8 egg's utf8-srfi-13.scm pasted by siiky on Fri Mar 15 13:26:23 2024

(define (make-string-prefix-test proc)
  (lambda (s1 s2 . opt)
    (cond
     ((null? opt)
      (and (<= (string-length s1) (string-length s2)) (proc s1 s2))) ; <== this line
     (else
      (with-two-substring-offsets
       (lambda (s1 s2 start1 end1 start2 end2)
         (let ((s1-len (- end1 start1))
               (s2-len (- end2 start2)))
           (and (<= s1-len s2-len) (proc s1 s2 start1 start2 s1-len))))
       s1 s2 opt)))))

(define string-prefix? (make-string-prefix-test substring=?))
(define string-prefix-ci? (make-string-prefix-test substring-ci=?))

substring=? fix's regression? added by siiky on Fri Mar 15 13:27:22 2024

#;5> sub ; <TAB> here
Error: (substring=?) out of range
3
0
3

	Call history:

	utf8-srfi-13.scm:374: proc	
	utf8-srfi-13.scm:374: proc	
	utf8-srfi-13.scm:374: proc	
	utf8-srfi-13.scm:374: proc	
	utf8-srfi-13.scm:374: proc	
	utf8-srfi-13.scm:374: proc	
	utf8-srfi-13.scm:374: proc	
	utf8-srfi-13.scm:374: proc	
	utf8-srfi-13.scm:374: proc	
	utf8-srfi-13.scm:374: proc	
	utf8-srfi-13.scm:374: proc	
	utf8-srfi-13.scm:374: proc	
	utf8-srfi-13.scm:374: proc	
	utf8-srfi-13.scm:374: proc	
	utf8-srfi-13.scm:374: proc	
	utf8-srfi-13.scm:374: proc	  	<--

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What's the result of `(apply + (list -3 4 2))'?
Visually impaired? Let me spell it for you (wav file) download WAV