Ignore:
Timestamp:
04/10/14 03:11:22 (7 years ago)
Author:
Ivan Raikov
Message:

picnic: bug fix in ordering of layouts and local sections

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/picnic/trunk/picnic-utils.scm

    r30671 r30682  
    138138                (for-each (match-lambda
    139139                           ((gid p)
    140                             (fprintf out "~A ~A ~A ~A~%"
    141                                      gid
     140                            (fprintf out "~A ~A ~A~%"
    142141                                     (coord 0 p)
    143142                                     (coord 1 p)
     
    352351                                                 (make-genpoint dpoint gid soma-distance #f)))
    353352                                             proc)))
    354                               (d "make-section: gid = ~A pts = ~A~%" gid proc)
     353                              (d "make-section: label = ~A gid = ~A p = ~A pts = ~A~%"
     354                                 label gid p proc)
    355355                              (cons `(,seci . ,pts) ax)
    356356                              ))
     
    881881          )
    882882
     883        (define (make-output-fname dirname sysname suffix . rest)
     884          (let-optionals
     885           rest ((x #t))
     886           (and x
     887                (let ((dirname (if (string? x) x dirname)))
     888                  (let ((fname (sprintf "~A~A" sysname suffix)))
     889                    (or (and dirname (make-pathname dirname fname)) fname)))
     890                )))
     891
    883892       
    884893)
Note: See TracChangeset for help on using the changeset viewer.