Changeset 36654 in project


Ignore:
Timestamp:
09/23/18 22:02:12 (3 months ago)
Author:
mario
Message:

man/4/Macros: fix indentation (replace tabs by spaces)

Apparently tabs causes indentation issues in the wiki.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • wiki/man/4/Macros

    r36626 r36654  
    164164    (lambda (exp rename compare)
    165165      (let ((clauses (cdr exp)))
    166         (if (null? clauses)
    167             `(,(rename 'quote) unspecified)
    168             (let* ((first (car clauses))
    169                    (rest (cdr clauses))
    170                    (test (car first)))
    171               (cond ((and (symbol? test)
    172                           (compare test (rename 'else)))
    173                      `(,(rename 'begin) ,@(cdr first)))
    174                     (else `(,(rename 'if)
    175                             ,test
    176                              (,(rename 'begin) ,@(cdr first))
    177                              (,(rename 'cond) ,@rest)))))))))
     166        (if (null? clauses)
     167            `(,(rename 'quote) unspecified)
     168            (let* ((first (car clauses))
     169                   (rest (cdr clauses))
     170                   (test (car first)))
     171              (cond ((and (symbol? test)
     172                          (compare test (rename 'else)))
     173                     `(,(rename 'begin) ,@(cdr first)))
     174                    (else `(,(rename 'if)
     175                            ,test
     176                             (,(rename 'begin) ,@(cdr first))
     177                             (,(rename 'cond) ,@rest)))))))))
    178178
    179179In this example the identifier {{else}} is renamed before being passed
Note: See TracChangeset for help on using the changeset viewer.