add ++path option

svn: r9641
2008-05-04 13:05:20 +00:00 · 2008-05-04 13:05:20 +00:00 · 118033bba3
commit 118033bba3
parent 7118de47c4
1 changed files with 4 additions and 0 deletions
--- a/collects/r6rs/run.ss
+++ b/collects/r6rs/run.ss
@ -25,6 +25,10 @@
    (install-all-users #t)]
   [("--force") "overwrite existing libraries"
    (install-force #t)]
+   #:multi
+   [("++path") dir "use <dir> as a container of library dirs (i.e., collections)"
+    (current-library-collection-paths (append (current-library-collection-paths)
+                                              (list (path->complete-path dir))))]
   #:handlers
   (case-lambda
    [(x) (values #f null)]