Changeset 14917 in project


Ignore:
Timestamp:
06/06/09 19:01:53 (10 years ago)
Author:
azul
Message:

Small improvements that were required for the inline-edit functionality.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/stream-sections/trunk/stream-sections.scm

    r9984 r14917  
    146146  (receive (previous rest)
    147147           (stream-break (cut is-section? id <>) document)
    148     (when (stream-null? rest)
    149       (error "Couldn't find section" (stream->string id)))
    150     (stream-append
    151       previous
    152       new-content
    153       (stream-drop-while (cut is-part-of-section? (stream-car rest) <>) rest))))
     148    (if (stream-null? rest)
     149      (stream-append document new-content)
     150      (stream-append
     151        previous
     152        new-content
     153        (stream-drop-while (cut is-part-of-section? (stream-car rest) <>) rest)))))
Note: See TracChangeset for help on using the changeset viewer.