From be72bafd337df18ecfbc64fa01f5a1704186c985 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sat, 15 Sep 2012 18:26:30 +0200 Subject: racket: correctly jump to symbols defined in .ss modules Racket is returning by default their canonical "rkt" name, which sometimes is not what's in the filesystem. --- scheme/racket/geiser/locations.rkt | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) (limited to 'scheme/racket') diff --git a/scheme/racket/geiser/locations.rkt b/scheme/racket/geiser/locations.rkt index 1ed4534..517e6df 100644 --- a/scheme/racket/geiser/locations.rkt +++ b/scheme/racket/geiser/locations.rkt @@ -1,6 +1,6 @@ ;;; locations.rkt -- locating symbols -;; Copyright (C) 2009, 2010 Jose Antonio Ortega Ruiz +;; Copyright (C) 2009, 2010, 2012 Jose Antonio Ortega Ruiz ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the Modified BSD License. You should @@ -29,10 +29,17 @@ (module-path-index-resolve (car binding)))) (cons sym #f)))) +(define (switch-extension path) + (if (regexp-match? "\\.rkt$" path) + (regexp-replace "\\.rkt$" path ".ss") + (regexp-replace "\\.ss$" path ".rkt"))) + (define (make-location name path line) - (list (cons "name" name) - (cons "file" (if (path? path) (path->string path) '())) - (cons "line" (or line '())))) + (let* ([path (if (path? path) (path->string path) #f)] + [path (and path (if (file-exists? path) path (switch-extension path)))]) + (list (cons "name" name) + (cons "file" (or path '())) + (cons "line" (or line '()))))) (define (symbol-location sym) (let* ([loc (symbol-location* sym)] -- cgit v1.2.3