Changeset 18201 in project


Ignore:
Timestamp:
05/24/10 18:31:31 (11 years ago)
Author:
azul
Message:

Add some logging to your life.

File:
1 edited

Legend:

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

    r15095 r18201  
    18071807
    18081808(define (run-span-extension name text params info)
    1809   ((wiki-extension-get name 'code-span)
    1810    (environment
    1811      (environment-code-extensions info params)
    1812      ((text text)))))
     1809  (call-with-logging 'debug
     1810    (lambda ()
     1811      ((wiki-extension-get name 'code-span)
     1812       (environment
     1813         (environment-code-extensions info params)
     1814         ((text text)))))
     1815    "stream-wiki: Running span extension: ~A: ~A"
     1816    (stream->string name)
     1817    params))
    18131818
    18141819(define (run-break-extension name params info)
    1815   ((wiki-extension-get name 'code-break)
    1816    (environment-code-extensions info params)))
     1820  (call-with-logging 'debug
     1821    (lambda ()
     1822      ((wiki-extension-get name 'code-break)
     1823       (environment-code-extensions info params)))
     1824    "stream-wiki: Running break extension: ~A: ~A"
     1825    (stream->string name)
     1826    params))
    18171827
    18181828;;; TEXI driver
Note: See TracChangeset for help on using the changeset viewer.