From 42b6eeff1b3f2a18b9ee5fb0ffd4de9b77489f98 Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Fri, 16 Aug 2019 23:39:36 +0800
Subject: [PATCH] fix string-mismatch usage in (chibi repl)
---
lib/chibi/repl.scm | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/lib/chibi/repl.scm b/lib/chibi/repl.scm
index 4c3fc7d0..45c9084a 100644
--- a/lib/chibi/repl.scm
+++ b/lib/chibi/repl.scm
@@ -63,9 +63,11 @@
(ls (cdr strings)))
(if (or (null? ls) (zero? len))
len
- (lp (min len (string-cursor->index prev (string-mismatch prev (car ls))))
- (car ls)
- (cdr ls))))))
+ (call-with-values (lambda () (string-mismatch prev (car ls)))
+ (lambda (i1 i2)
+ (lp (min len (string-cursor->index prev i1))
+ (car ls)
+ (cdr ls))))))))
(define (make-sexp-buffer-completer)
(buffer-make-completer