Changeset 8529 in project


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

Tweaks.

File:
1 edited

Legend:

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

    r8528 r8529  
    5757    (or
    5858      (and-let* ((name (assoc 'name params))
    59                  (returns (assoc 'returns params))
    60                  (args (assoc 'args params)))
    61         (parse
    62           (html-stream
    63             "=== " (cdr name) "\n\n"
    64             "[procedure] {{('''" (cdr name) "''' "(cdr args) ")}}\n\n"
    65             "Returns: {{" (cdr returns) "}}\n\n"
    66             text)))
    67       stream-null)))
     59                 (returns (assoc 'returns params)))
     60        (let ((args (assoc 'args params)))
     61          (parse
     62            (html-stream
     63              "=== " (cdr name) "\n\n"
     64              "[procedure] {{('''" (cdr name) "'''"
     65              (if args (format #f " ~A" (cdr args)) "")
     66              ")}}\n\n"
     67              "Returns: {{" (cdr returns) "}}\n\n"
     68              text)))
     69        stream-null))))
    6870
    6971(define (chicken-examples env)
Note: See TracChangeset for help on using the changeset viewer.