Changeset 8523 in project


Ignore:
Timestamp:
02/17/08 14:21:45 (12 years ago)
Author:
azul
Message:

Tweaks.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • stream-wiki/trunk/extensions/chicken.scm

    r8522 r8523  
    5454
    5555(define (chicken-procedure env)
    56   (let-from-environment env (params parse path-in)
     56  (let-from-environment env (params parse text)
    5757    (or
    5858      (and-let* ((name (assoc 'name params))
     
    6161        (parse
    6262          (html-stream
    63             "=== (" name " " args "\n\n"
    64             "Returns: " retval "\n\n"
    65             description))))))
     63            "=== name \n\n"
     64            " ( '''" name "''' " args ")\n\n"
     65            "Returns: {{" retval "}}\n\n"
     66            text))))))
    6667
    6768(define *extensions*
    68   `((chickenegg (code-break ,chicken-egg-html))))
     69  `((chickenegg (code-break ,chicken-egg-html))
     70    (procedure (code-span ,chicken-procedure))))
Note: See TracChangeset for help on using the changeset viewer.