Changeset 12540 in project


Ignore:
Timestamp:
11/17/08 01:20:35 (11 years ago)
Author:
azul
Message:

Allow an environment to be passed to wiki-links, wiki-tags.

File:
1 edited

Legend:

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

    r12533 r12540  
    11831183(define (accum-with-driver driver)
    11841184  (lambda (str . rest)
    1185     (let-optionals rest ((tail stream-null) (name "") (open (constantly stream-null)) (include (lambda (name tail) tail)) (linktypes (make-hash-table)))
     1185    (let-optionals rest ((tail stream-null) (name "") (open (constantly stream-null)) (include (lambda (name tail) tail)) (linktypes (make-hash-table)) (environment (environment ())))
    11861186      (iterator->stream
    11871187        (lambda (collect stop)
    11881188          (stream-traverse
    1189             (wiki-parse (driver collect) str tail name open include linktypes)))))))
     1189            (wiki-parse (driver collect) str tail name open include linktypes environment)))))))
    11901190
    11911191(define wiki-links
Note: See TracChangeset for help on using the changeset viewer.