Changeset 8529 in project
- Timestamp:
- 02/17/08 15:26:52 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
stream-wiki/trunk/extensions/chicken.scm
r8528 r8529 57 57 (or 58 58 (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)))) 68 70 69 71 (define (chicken-examples env)
Note: See TracChangeset
for help on using the changeset viewer.