>From a307122a89486879e08fd5224b6da936ccd39bf3 Mon Sep 17 00:00:00 2001 From: Evan Hanson Date: Wed, 29 Aug 2018 09:02:01 +1200 Subject: [PATCH 2/3] Make multiple "-n" options to chicken-install imply "-no-install-deps" --- chicken-install.scm | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/chicken-install.scm b/chicken-install.scm index 20cb47af..96f326ed 100644 --- a/chicken-install.scm +++ b/chicken-install.scm @@ -1028,7 +1028,8 @@ usage: chicken-install [OPTION ...] [NAME[:VERSION] ...] -dry-run do not build or install, just print the locations of the generated build & install scripts -list-versions list available versions for given eggs (HTTP transport only) - -n -no-install do not install, just build + -n -no-install do not install, just build (giving -n more than once implies + `-no-install-deps') -no-install-deps do not install dependencies -purge remove cached files for given eggs (or purge cache completely) -host when cross-compiling, compile extension only for host @@ -1114,9 +1115,17 @@ EOF ((member arg '("-s" "-sudo")) (set! sudo-install #t) (loop (cdr args))) - ((member arg '("-n" "-no-install")) + ((equal? arg "-n") + (if no-install + (set! no-deps #t) + (set! no-install #t)) + (loop (cdr args))) + ((equal? arg "-no-install") (set! no-install #t) (loop (cdr args))) + ((equal? arg "-no-install-deps") + (set! no-deps #t) + (loop (cdr args))) ((equal? arg "-purge") (set! purge-mode #t) (loop (cdr args))) -- 2.11.0