Changeset 8815 in project


Ignore:
Timestamp:
02/24/08 18:30:28 (12 years ago)
Author:
azul
Message:

Fixes.

File:
1 edited

Legend:

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

    r8753 r8815  
    5454
    5555(define (chicken-def name env)
    56   (let-from-environment env (text)
     56  (let-from-environment env (text parse)
    5757    ; Remove whitespace at beginning or end
    5858    (let ((text (stream-reverse
     
    109109    (examples (code-span ,chicken-examples))
    110110    (expr (code-span ,chicken-expr))
    111     (result (code-span ,(chicken-example "=>" <>)))
    112     (input  (code-span ,(chicken-example "[input]" <>)))
    113     (output (code-span ,(chicken-example "[output]" <>)))))
     111    (result (code-span ,(cut chicken-example "=>" <>)))
     112    (input  (code-span ,(cut chicken-example "[input]" <>)))
     113    (output (code-span ,(cut chicken-example "[output]" <>)))))
Note: See TracChangeset for help on using the changeset viewer.