Changeset 7332 in project for chicken/branches/release/csi.scm


Ignore:
Timestamp:
01/10/08 10:42:32 (12 years ago)
Author:
felix winkelmann
Message:

merged from trunk rev. 7324

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/release/csi.scm

    r7276 r7332  
    809809        (let ((x (car args)))
    810810          (cond
    811            ((string=? "--" x) args)
    812            ((or (string=? "-s" x) (string=? "-ss" x) (string=? "-script" x)) args)
     811           ((member x '("-s" "-ss" "-script" "--")) args)
    813812           ((and (fx> (##sys#size x) 2)
    814813                 (char=? #\- (##core#inline "C_subchar" x 0))
     
    830829(define (run)
    831830  (let* ([extraopts (parse-option-string (or (getenv "CSI_OPTIONS") ""))]
    832          [args (canonicalize-args (cdr (argv)))]
     831         [args (canonicalize-args (command-line-arguments))]
    833832         [kwstyle (member* '("-k" "-keyword-style") args)]
    834833         [script (member* '("-s" "-ss" "-script") args)])
Note: See TracChangeset for help on using the changeset viewer.