Changeset 34027 in project for release/4


Ignore:
Timestamp:
04/24/17 15:17:16 (3 years ago)
Author:
juergen
Message:

low-level-macros patch applied

Location:
release/4/low-level-macros
Files:
4 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/low-level-macros/tags/3.4.3/low-level-macros.scm

    r30398 r34027  
    10011001  (ir-macro-transformer
    10021002    (lambda (f i c?)
    1003       (let ((pat (cadr f)) (pre (cadr (caddr f))) (body (cdddr f)))
     1003      (let ((pat (cadr f))
     1004            (pre (strip-syntax (cadr (caddr f))))
     1005            (body (cdddr f)))
    10041006        (let* (
    10051007          (keywords? (c? (car body) 'keywords))
     
    10241026                           (let ,(map (lambda (s)
    10251027                                        `(,s (rename
    1026                                                ',(strip-prefix (i pre)
    1027                                                                (i s)))))
    1028                                       (extract (prefixed-with? (i pre))
     1028                                              ',(strip-prefix
     1029                                                 pre (strip-syntax s)))))
     1030                                      (extract (prefixed-with? pre)
    10291031                                               body))
    10301032                             ,@body))
     
    10391041                         (let ,(map (lambda (s)
    10401042                                      `(,s (rename
    1041                                              ',(strip-prefix (i pre)
    1042                                                              (i s)))))
    1043                                     (extract (prefixed-with? (i pre))
     1043                                            ',(strip-prefix
     1044                                               pre (strip-syntax s)))))
     1045                                    (extract (prefixed-with? pre)
    10441046                                             body))
    10451047                           ,@body))
  • release/4/low-level-macros/tags/3.4.3/low-level-macros.setup

    r30459 r34027  
    88 'low-level-macros
    99 '("low-level-macros.so" "low-level-macros.import.so" "macro-helpers.import.so")
    10  '((version "3.4.2")))
     10 '((version "3.4.3")))
    1111
  • release/4/low-level-macros/trunk/low-level-macros.scm

    r30398 r34027  
    10011001  (ir-macro-transformer
    10021002    (lambda (f i c?)
    1003       (let ((pat (cadr f)) (pre (cadr (caddr f))) (body (cdddr f)))
     1003      (let ((pat (cadr f))
     1004            (pre (strip-syntax (cadr (caddr f))))
     1005            (body (cdddr f)))
    10041006        (let* (
    10051007          (keywords? (c? (car body) 'keywords))
     
    10241026                           (let ,(map (lambda (s)
    10251027                                        `(,s (rename
    1026                                                ',(strip-prefix (i pre)
    1027                                                                (i s)))))
    1028                                       (extract (prefixed-with? (i pre))
     1028                                              ',(strip-prefix
     1029                                                 pre (strip-syntax s)))))
     1030                                      (extract (prefixed-with? pre)
    10291031                                               body))
    10301032                             ,@body))
     
    10391041                         (let ,(map (lambda (s)
    10401042                                      `(,s (rename
    1041                                              ',(strip-prefix (i pre)
    1042                                                              (i s)))))
    1043                                     (extract (prefixed-with? (i pre))
     1043                                            ',(strip-prefix
     1044                                               pre (strip-syntax s)))))
     1045                                    (extract (prefixed-with? pre)
    10441046                                             body))
    10451047                           ,@body))
  • release/4/low-level-macros/trunk/low-level-macros.setup

    r30459 r34027  
    88 'low-level-macros
    99 '("low-level-macros.so" "low-level-macros.import.so" "macro-helpers.import.so")
    10  '((version "3.4.2")))
     10 '((version "3.4.3")))
    1111
Note: See TracChangeset for help on using the changeset viewer.