whoops

6 years ago · a6c0253e65
parent d362cf9483
commit a6c0253e65
1 changed files with 2 additions and 2 deletions
--- a/sugar/file.rkt
+++ b/sugar/file.rkt
@ -9,8 +9,8 @@
 ;; but will not treat hidden files as an extension (which is a bug)
 (define (filename-extension name)
  (define filename (file-name-from-path name))
-  (define bytes (and name (path->bytes filename)))
-  (match (and name (regexp-match #rx#".[.]([^.]+)$" bytes))
+  (define bytes (and filename (path->bytes filename)))
+  (match (and bytes (regexp-match #rx#".[.]([^.]+)$" bytes))
    [(list _ second) second]
    [_ #false]))