fixing disjoint cursor bug

This commit is contained in:
Alex Shinn 2016-05-19 00:56:02 +09:00
parent 1d0b67586a
commit 3d8fbafab9

View file

@ -19,7 +19,7 @@
(define (extract-snowball-package bv) (define (extract-snowball-package bv)
(define (path-top path) (define (path-top path)
(substring path 0 (string-find path #\/))) (substring path (string-cursor-start path) (string-find path #\/)))
(guard (exn (guard (exn
(else (else
(log-error "couldn't extract package.scm: " exn) (log-error "couldn't extract package.scm: " exn)