typos

svn: r3057 original commit: 2c9a54cd34b0dc538187d251a3d8b205390e6b4b
2006-05-25 15:57:53 +00:00 · 2006-05-25 15:57:53 +00:00 · 792f0b5a57
commit 792f0b5a57
parent 9e6aa9dfa4
1 changed files with 2 additions and 2 deletions
--- a/collects/mzlib/file.ss
+++ b/collects/mzlib/file.ss
@ -172,13 +172,13 @@
 	    filename))))

  (define (file-name who name)
-    (unless (path-string? who)
+    (unless (path-string? name)
      (raise-type-error who "path or string" name))
    (let-values ([(base file dir?) (split-path name)])
      (and (not dir?) (path? file) file)))

  (define (file-name-from-path name)
-    (filename 'file-name-from-path))
+    (file-name 'file-name-from-path))

  (define (path-only name)
    (unless (path-string? name)