Changeset 18107 in project


Ignore:
Timestamp:
05/16/10 17:42:54 (9 years ago)
Author:
sjamaan
Message:

Revert that; according to zbigniew er-macro-transformer is deprecated

File:
1 edited

Legend:

Unmodified
Added
Removed
  • wiki/man/4/Modules and macros

    r18106 r18107  
    168168
    169169  (define-syntax loop
    170     (er-macro-transformer
    171       (lambda (x r c)
    172         (let ((body (cdr x)))
    173           `(,(r 'call-with-current-continuation)
    174             (,(r 'lambda) (exit)
    175              (,(r 'let) ,(r 'f) () ,@body (,(r 'f)))))))))
     170    (lambda (x r c)
     171      (let ((body (cdr x)))
     172        `(,(r 'call-with-current-continuation)
     173          (,(r 'lambda) (exit)
     174           (,(r 'let) ,(r 'f) () ,@body (,(r 'f))))))))
    176175
    177176Suppose a {{while}} macro is implemented using {{loop}}, with the intent
     
    191190
    192191  (define-syntax while
    193     (er-macro-transformer
    194       (lambda (x r c)
    195         (let ((test (cadr x))
    196               (body (cddr x)))
    197           `(,(r 'loop)
    198             (,(r 'if) (,(r 'not) ,test) (exit #f))
    199             ,@body)))))
     192    (lambda (x r c)
     193      (let ((test (cadr x))
     194            (body (cddr x)))
     195        `(,(r 'loop)
     196          (,(r 'if) (,(r 'not) ,test) (exit #f))
     197          ,@body))))
    200198
    201199Note: this implementation of explicit-renaming macros allows passing
Note: See TracChangeset for help on using the changeset viewer.