Changeset 12753 in project


Ignore:
Timestamp:
12/04/08 01:12:49 (11 years ago)
Author:
azul
Message:

Two fixes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/svnwiki-metadata/trunk/svnwiki-metadata.scm

    r12752 r12753  
    5252      (stream-split
    5353        (string->stream (get-props-parents-first "svnwiki:properties:list" path-in path ""))
    54         (cut char=? <> #\,)))))
     54        char-whitespace?))))
    5555
    5656(define (get-value env property)
     
    123123                       (br)
    124124                       ((cadr (or (assoc (get-props-parents-first (format #f "svnwiki:properties:type:~A" (stream->string property)) path-in path "")
    125                                          edit-properties-input)
    126                                   (car edit-properties-input)))
     125                                         *edit-properties-input*)
     126                                  (car *edit-properties-input*)))
    127127                        env
    128128                        property))))
Note: See TracChangeset for help on using the changeset viewer.