From ef777b73dcd53f7341c32fdf04b39906c86087f3 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 23 May 2010 23:23:46 +0200 Subject: PLT: Completing the .ss -> .rkt transition. --- scheme/plt/geiser/modules.rkt | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) (limited to 'scheme/plt/geiser/modules.rkt') diff --git a/scheme/plt/geiser/modules.rkt b/scheme/plt/geiser/modules.rkt index 829cf77..2de8e35 100644 --- a/scheme/plt/geiser/modules.rkt +++ b/scheme/plt/geiser/modules.rkt @@ -1,4 +1,4 @@ -;;; modules.ss -- module metadata +;;; modules.rkt -- module metadata ;; Copyright (C) 2009, 2010 Jose Antonio Ortega Ruiz @@ -87,16 +87,19 @@ (define path->symbol (compose string->symbol path->string)) (define (path->entry path) - (and (bytes=? (or (filename-extension path) #"") #"ss") - (let ((path (path->string path))) - (substring path 0 (- (string-length path) 3))))) + (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)))))) (define (visit-module-path path kind acc) (case kind ((file) (let ((entry (path->entry path))) (if entry (cons entry acc) acc))) ((dir) (cond ((skippable-dir? path) (values acc #f)) - ((file-exists? (build-path path "main.ss")) + ((or (file-exists? (build-path path "main.rkt")) + (file-exists? (build-path path "main.ss"))) (cons (path->string path) acc)) (else acc))) (else acc))) @@ -144,4 +147,4 @@ (startup) -;;; modules.ss ends here +;;; modules.rkt ends here -- cgit v1.2.3