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.
This commit is contained in:
Eli Barzilay 2012-07-27 10:35:00 -04:00
parent 7e4e373919
commit c408dfb03b
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
[(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))]))