From b0b8e2fd310e97689a3f90781f26b6ae8129e025 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sat, 5 Jun 2010 17:18:40 +0200 Subject: Racket: off-by-one bug in module name completions --- scheme/racket/geiser/modules.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'scheme/racket') diff --git a/scheme/racket/geiser/modules.rkt b/scheme/racket/geiser/modules.rkt index 0de316c..95219ed 100644 --- a/scheme/racket/geiser/modules.rkt +++ b/scheme/racket/geiser/modules.rkt @@ -90,8 +90,9 @@ (let ((ext (filename-extension path))) (and ext (or (bytes=? ext #"rkt") (bytes=? ext #"ss")) - (let ((path (path->string path))) - (substring path 0 (- (string-length path) 3)))))) + (let* ((path (path->string path)) + (len (- (string-length path) (bytes-length ext) 1))) + (substring path 0 len))))) (define (visit-module-path path kind acc) (case kind -- cgit v1.2.3