From 2c9a54cd34b0dc538187d251a3d8b205390e6b4b Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 25 May 2006 15:57:53 +0000 Subject: [PATCH] typos svn: r3057 --- collects/mzlib/file.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mzlib/file.ss b/collects/mzlib/file.ss index cccf5e42c6..c76f937963 100644 --- 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)