Improved script command-line handling.

brmsaptool.scm

@@ -565,9 +565,18 @@
 		  (cons (car args) res)
 		  (- num 1))))))
 
+;; Gets command-line arguments after the "--" of csi (not useful when
+;; compiled)
+(define (get-command-line-arguments)
+  (let* ((args (argv))
+	 (rargs (member "--" args)))
+    (if rargs
+	(cdr rargs)
+	(cdr args))))
+
 ;; Performs the actual parsing based on specification.
 (define (do-parse-command-line specs)
-  (let loop ((args (command-line-arguments)))
+  (let loop ((args (get-command-line-arguments)))
     (when (not (null? args))
       (let* ((arg (car args))
 	     (specp (assoc arg specs)))