Changeset 8529 in project

Timestamp:

02/17/08 15:26:52 (12 years ago)

Author:

azul

Message:

Tweaks.

File:

• stream-wiki/trunk/extensions/chicken.scm (modified) (1 diff)

stream-wiki/trunk/extensions/chicken.scm

@@ -57 +57 @@
     (or
       (and-let* ((name (assoc 'name params))
-                 (returns (assoc 'returns params))
-                 (args (assoc 'args params)))
-        (parse
-          (html-stream
-            "=== " (cdr name) "\n\n"
-            "[procedure] {{('''" (cdr name) "''' "(cdr args) ")}}\n\n"
-            "Returns: {{" (cdr returns) "}}\n\n"
-            text)))
-      stream-null)))
+                 (returns (assoc 'returns params)))
+        (let ((args (assoc 'args params)))
+          (parse
+            (html-stream
+              "=== " (cdr name) "\n\n"
+              "[procedure] {{('''" (cdr name) "'''"
+              (if args (format #f " ~A" (cdr args)) "")
+              ")}}\n\n"
+              "Returns: {{" (cdr returns) "}}\n\n"
+              text)))
+        stream-null))))
 
 (define (chicken-examples env)