From 12349ed6e221a38e7b07cfc09935b063e61f13e4 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Fri, 27 Jul 2012 10:35:00 -0400 Subject: [PATCH] Put the main work in a `main' sub-module. This should avoid re-checking the zo file at the end, leading to an error when it's not there if it moved. (cherry picked from commit c408dfb03b7f4b4901c3429389c4ed7cd3e5d6bc) --- collects/setup/unixstyle-install.rkt | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/collects/setup/unixstyle-install.rkt b/collects/setup/unixstyle-install.rkt index fed79ba1ce..2fb201398e 100644 --- a/collects/setup/unixstyle-install.rkt +++ b/collects/setup/unixstyle-install.rkt @@ -450,9 +450,10 @@ ;; -------------------------------------------------------------------------- -(case op - [(move) (move/copy-distribution #t)] - [(copy) (move/copy-distribution #f)] - [(make-install-copytree) (make-install-copytree)] - [(make-install-destdir-fix) (make-install-destdir-fix)] - [else (error (format "unknown operation: ~e" op))]) +(module+ main + (case op + [(move) (move/copy-distribution #t)] + [(copy) (move/copy-distribution #f)] + [(make-install-copytree) (make-install-copytree)] + [(make-install-destdir-fix) (make-install-destdir-fix)] + [else (error (format "unknown operation: ~e" op))]))