>From 210a7716421e44e9276272346a64d75957cd55fe 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 6f21ee66..fd50e5ec 100644 --- a/chicken-install.scm +++ b/chicken-install.scm @@ -1026,7 +1026,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 @@ -1112,9 +1113,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