nits

project-requires.rkt

@@ -4,7 +4,8 @@
 
 (define (project-require-file? path)
   (define path-string (path->string path))
-  (equal? (substring path-string (- (string-length path-string) 3) (string-length path-string)) "rkt"))
+  (define racket-ext "rkt")
+  (equal? (substring path-string (- (string-length path-string) (string-length racket-ext)) (string-length path-string)) racket-ext))
 
 ;; list of all eligible requires in project require directory
 (define (get-project-require-files)
@@ -12,7 +13,7 @@
   (and (directory-exists? extras-directory)
        ;; #:build? option returns complete paths (instead of just file names)
        (let ([files (filter project-require-file? (directory-list extras-directory #:build? #t))])
-         (and (not (equal? '() files)) files))))
+         (and (not (equal? null files)) files))))
 
 (module+ main
 (parameterize ([world:current-project-root (string->path "/Users/mb/git/bpt/")])