Changeset 16048 in project


Ignore:
Timestamp:
09/23/09 13:17:27 (10 years ago)
Author:
Ivan Raikov
Message:

removed debug prints from getopt-long

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/getopt-long/getopt-long.scm

    r16045 r16048  
    395395(define (long-option-name lst)
    396396  (let loop ((lst lst)  (ax (list)))
    397     (print "long-option-name: lst = "  lst)
    398     (print "long-option-name: ax = "  ax)
    399 
    400397    (cond ((null? lst)  (list (list->string (reverse ax)) lst))
    401398
     
    441438            (match-let* (((n nrst)  (long-option-name rst))
    442439                         ((v ())    (begin
    443                                       (print "n = " n)
    444                                       (print "nrst = " nrst)
    445440                                      (long-option-value nrst)))
    446441                         ((next v)
    447442                          (begin
    448                             (print "next = " next)
    449                             (print "v = " v)
    450443                            (or (and v (list next v))
    451444                                (and (pair? next)
     
    644637                          specifications))
    645638         (pair           (split-argument-list program-arguments))
    646          (dd             (print "pair = " pair))
    647639         (split-ls       (car pair))
    648640         (non-split-ls   (cdr pair))
Note: See TracChangeset for help on using the changeset viewer.