mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 13:49:17 +02:00
fixing disjoint cursor bug
This commit is contained in:
parent
1d0b67586a
commit
3d8fbafab9
1 changed files with 1 additions and 1 deletions
|
@ -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)
|
||||||
|
|
Loading…
Add table
Reference in a new issue