made -i and -I independent

svn: r9806
This commit is contained in:
Eli Barzilay 2008-05-11 13:40:59 +00:00
parent 4bf40a2556
commit bb29959db9

View File

@ -544,7 +544,7 @@
(compiler:option:compile-subcollections #f))
(define (do-install-part part)
(when (or (call-install) (and (eq? part 'post) (call-post-install)))
(when (if (eq? part 'post) (call-post-install) (call-install))
(for ([cc ccs-to-compile])
(let/ec k
(begin-record-error cc (case part