Changeset 8535 in project


Ignore:
Timestamp:
02/17/08 15:55:48 (12 years ago)
Author:
azul
Message:

Tweaks.

File:
1 edited

Legend:

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

    r8532 r8535  
    6161          (parse
    6262            (html-stream
    63               "=== " (cdr name) "\n\n"
    6463              "[procedure] {{('''" (cdr name) "'''"
    65               (if args (format #f " ~A" (cdr args)) "")
     64              (if args (stream-cons #\space (cdr args)) "")
    6665              ")}}\n\n"
    6766              "Returns: {{" (cdr returns) "}}\n\n"
     
    7574      (html-stream
    7675        "Examples:\n\n"
    77         "<enscript highlight=scheme>" text "</enscript>"))))
     76        "<enscript highlight=scheme>" (parse text) "</enscript>"))))
    7877
    7978(define (chicken-expr env)
    80   (let-from-environment env (params parse text)
    81     (parse
    82       (html-stream text "\n"))))
     79  (let-from-environment env (text)
     80    (html-stream text "\n")))
    8381
    8482(define (chicken-result env)
    85   (let-from-environment env (params parse text)
    86     (parse
    87       (html-stream "=> " text "\n"))))
     83  (let-from-environment env (text)
     84    (html-stream "=> " text "\n")))
    8885
    8986(define *extensions*
Note: See TracChangeset for help on using the changeset viewer.