suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Put the main work in a `main' sub-module.

Browse Source 
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 c408dfb03b)
This commit is contained in:
Eli Barzilay 2012-07-27 10:35:00 -04:00 committed by Ryan Culpepper
parent 135aba7dbc
commit 12349ed6e2
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/setup/unixstyle-install.rkt
View File

@ -450,9 +450,10 @@
;; -------------------------------------------------------------------------- ;; --------------------------------------------------------------------------
(case op (module+ main
[(move) (move/copy-distribution #t)] (case op
[(copy) (move/copy-distribution #f)] [(move) (move/copy-distribution #t)]
[(make-install-copytree) (make-install-copytree)] [(copy) (move/copy-distribution #f)]
[(make-install-destdir-fix) (make-install-destdir-fix)] [(make-install-copytree) (make-install-copytree)]
[else (error (format "unknown operation: ~e" op))]) [(make-install-destdir-fix) (make-install-destdir-fix)]
[else (error (format "unknown operation: ~e" op))]))