Changeset 14640 in project


Ignore:
Timestamp:
05/15/09 03:12:55 (11 years ago)
Author:
Ivan Raikov
Message:

case-insensitive field lookup

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/neuromorpho/neuromorpho.scm

    r14639 r14640  
    249249(define (record-info info morphology-file)
    250250  (let ((detail (alist-ref 'detail (cdr info))))
    251     (let ((index-vals (map (lambda (x) (alist-ref x detail string=?)) (index-fields))))
     251    (let ((index-vals (map (lambda (x) (alist-ref x detail string-ci=?)) (index-fields))))
    252252      `(tr ,@(map (lambda (v) `(td ,v)) index-vals)
    253253           (td (a (@ (href ,(make-absolute-pathname (current-directory) (car info)))) "Details"))
Note: See TracChangeset for help on using the changeset viewer.