From 3b394bda4eec3c73e6c9ab334d99669cbc239e7d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 10 Jan 2008 20:24:49 +0000 Subject: [PATCH] fix setup-plt -c .dep traversal svn: r8283 --- collects/setup/setup-unit.ss | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/setup/setup-unit.ss b/collects/setup/setup-unit.ss index 639bc48b5a..b04287831b 100644 --- a/collects/setup/setup-unit.ss +++ b/collects/setup/setup-unit.ss @@ -496,9 +496,8 @@ old-dependencies (lambda (file _) (let-values ([(dir name dir?) (split-path file)]) - (let* ([base-name (path-replace-suffix name #"")] - [zo (build-path dir mode-dir (format "~a.zo" base-name))] - [dep (build-path dir mode-dir (format "~a.dep" base-name))]) + (let* ([zo (build-path dir mode-dir (path-add-suffix name #".zo"))] + [dep (build-path dir mode-dir (path-add-suffix name #".dep"))]) (when (and (file-exists? dep) (file-exists? zo)) (set! did-something? #t) (setup-printf " deleting ~a" zo)