git-svn-id: svn+ssh://svn.dolda2000.com/srv/svn/repos/src/doldaconnect@722
959494ce-11ee-0310-bf91-
de5d638817bd
(define (write-info-file)
(if (assoc 'info-file session)
(let ((op (open-output-file (cdr (assoc 'info-file session)))))
(define (write-info-file)
(if (assoc 'info-file session)
(let ((op (open-output-file (cdr (assoc 'info-file session)))))
- (write (list (cons 'numdl (length trans))
- (cons 'lastdl lastdl)
- (cons 'availsr info-numavail)
- (cons 'realsr info-numreal)
- (cons 'totalsr info-numtotal)
- (cons 'lastsrch lastsearch)
- (cons 'srcheta info-searcheta)
- (cons 'srchmode (cdr (assoc 'search-mode session))))
- op)
- (newline op)
+ (pretty-print (list (cons 'numdl (length trans))
+ (cons 'lastdl lastdl)
+ (cons 'availsr info-numavail)
+ (cons 'realsr info-numreal)
+ (cons 'totalsr info-numtotal)
+ (cons 'lastsrch lastsearch)
+ (cons 'srcheta info-searcheta)
+ (cons 'srchmode (cdr (assoc 'search-mode session))))
+ op)
(close-port op))))
(define (parseresults)
(close-port op))))
(define (parseresults)