Changeset 13348 in project


Ignore:
Timestamp:
02/19/09 06:06:16 (11 years ago)
Author:
Ivan Raikov
Message:

Removed some debug statements.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/formular/trunk/form2wiki.scm

    r13346 r13348  
    102102                                          (if (string? x) (xml:read-string x) (->string x)) )
    103103                                        (second field))))
    104                     (print "section-text = " section-text)
    105104                    (let ((section-title (->string (first field)))
    106105                          (section-content
     
    143142     ((tree 'foldi)
    144143      (lambda (from-address lst i)
    145         (print "from-address = " from-address)
    146144        (cond ((and exclude (member (s$ from-address) exclude)) i)
    147145              ((or (not include) (member (s$ from-address) include))
     
    156154                                                 (if (file-exists? id)
    157155                                                     (loop (+ 1 i) (make-id (+ 1 i) width id-prefix idnum)) id))))
    158                                    (print "id = " id)
    159 
    160156                                   (if (> (length lst) 1)
    161157                                       (print "Multiple submissions by " from-address ": using submission from "
     
    190186                       (set! opt_include (map s$ (string-split (->string arg) ":"))))
    191187    ,(args:make-option (skip)     (required: "N")   
    192                        (string-append "skip first N entries (ordered by submission time))")
     188                       (string-append "skip first N entries (ordered by submission time)")
    193189                       (set! opt_skip (inexact->exact (string->number arg))))
    194190    ,(args:make-option (flimits)     (required: "FIELD1:LIMIT1,...")   
Note: See TracChangeset for help on using the changeset viewer.