Changeset 35093 in project


Ignore:
Timestamp:
01/30/18 23:49:11 (7 months ago)
Author:
kon
Message:

rm dup #\space

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/synch/trunk/synch.scm

    r35091 r35093  
    151151                     (,_lambda () (,_mutex-unlock! ,mtxvar ,@?unlock-args)) ) ) ) ) ) ) ) ) ) )
    152152
    153 (define-for-syntax  call-synch-transformer
     153(define-for-syntax call-synch-transformer
    154154        (syntax-rules ()
    155155    ;
     
    171171(define-syntax call/synch call-synch-transformer)
    172172
    173 (define-for-syntax  call-synch-with-transformer
     173(define-for-syntax call-synch-with-transformer
    174174        (syntax-rules ()
    175175    ;
     
    191191(define-syntax call-with/synch call-synch-with-transformer)
    192192
    193 (define-for-syntax  apply-synch-transformer
     193(define-for-syntax apply-synch-transformer
    194194        (syntax-rules ()
    195195          ((_ (?mtx (?lock-arg0 ...) (?unlock-arg0 ...)) ?proc ?arg0 ...)
     
    209209(define-syntax apply/synch apply-synch-transformer)
    210210
    211 (define-for-syntax  apply-synch-with-transformer
     211(define-for-syntax apply-synch-with-transformer
    212212        (syntax-rules ()
    213213    ;
     
    229229(define-syntax apply-with/synch apply-synch-with-transformer)
    230230
    231 (define-for-syntax  let-synch-transformer
     231(define-for-syntax let-synch-transformer
    232232  (er-macro-transformer
    233233    (lambda (frm rnm cmp)
     
    248248(define-syntax let/synch let-synch-transformer)
    249249
    250 (define-for-syntax  set!-synch-transformer
     250(define-for-syntax set!-synch-transformer
    251251  (er-macro-transformer
    252252    (lambda (frm rnm cmp)
     
    270270;;
    271271
    272 (define-for-syntax  synch-lock-transformer
     272(define-for-syntax synch-lock-transformer
    273273        (syntax-rules ()
    274274    ;
     
    288288(define-syntax synch/lock synch-lock-transformer)
    289289
    290 (define-for-syntax  synch-unlock-transformer
     290(define-for-syntax synch-unlock-transformer
    291291        (syntax-rules ()
    292292    ;
     
    310310;;
    311311
    312 (define-for-syntax  object-synch-cut-with-transformer
     312(define-for-syntax object-synch-cut-with-transformer
    313313  (er-macro-transformer
    314314    (lambda (frm rnm cmp)
     
    344344;;
    345345
    346 (define-for-syntax  record-synch-transformer
     346(define-for-syntax record-synch-transformer
    347347  (er-macro-transformer
    348348    (lambda (frm rnm cmp)
     
    358358(define-syntax record/synch record-synch-transformer)
    359359
    360 (define-for-syntax  record-synch-lock-transformer
     360(define-for-syntax record-synch-lock-transformer
    361361  (er-macro-transformer
    362362    (lambda (frm rnm cmp)
     
    372372(define-syntax record-synch/lock record-synch-lock-transformer)
    373373
    374 (define-for-syntax  record-synch-unlock-transformer
     374(define-for-syntax record-synch-unlock-transformer
    375375  (er-macro-transformer
    376376    (lambda (frm rnm cmp)
     
    453453                  (%*synch-with ?mtx ?var ?body ...) ) ) )
    454454
    455 (define-for-syntax  %call-synch-transformer
     455(define-for-syntax %call-synch-transformer
    456456        (syntax-rules ()
    457457                ((_ ?mtx ?proc ?arg0 ...)
     
    462462(define-syntax %call/synch %call-synch-transformer)
    463463
    464 (define-for-syntax  %call-synch-with-transformer
     464(define-for-syntax %call-synch-with-transformer
    465465        (syntax-rules ()
    466466                ((_ ?mtx ?proc ?arg0 ...)
     
    471471(define-syntax %call-with/synch %call-synch-with-transformer)
    472472
    473 (define-for-syntax  %apply-synch-transformer
     473(define-for-syntax %apply-synch-transformer
    474474        (syntax-rules ()
    475475                ((_ ?mtx ?proc ?arg0 ...)
     
    480480(define-syntax %apply/synch %apply-synch-transformer)
    481481
    482 (define-for-syntax  %apply-synch-with-transformer
     482(define-for-syntax %apply-synch-with-transformer
    483483        (syntax-rules ()
    484484                ((_ ?mtx ?proc ?arg0 ...)
     
    489489(define-syntax %apply-with/synch %apply-synch-with-transformer)
    490490
    491 (define-for-syntax  %let-synch-transformer
     491(define-for-syntax %let-synch-transformer
    492492  (er-macro-transformer
    493493    (lambda (frm rnm cmp)
     
    507507(define-syntax %let/synch %let-synch-transformer)
    508508
    509 (define-for-syntax  %set!-synch-transformer
     509(define-for-syntax %set!-synch-transformer
    510510  (er-macro-transformer
    511511    (lambda (frm rnm cmp)
     
    532532;;
    533533
    534 (define-for-syntax  %synch-lock-transformer
     534(define-for-syntax %synch-lock-transformer
    535535        (syntax-rules ()
    536536    ;
     
    551551(define-syntax %synch/lock %synch-lock-transformer)
    552552
    553 (define-for-syntax  %synch-unlock-transformer
     553(define-for-syntax %synch-unlock-transformer
    554554        (syntax-rules ()
    555555    ;
     
    574574;;
    575575
    576 (define-for-syntax  %object-synch-cut-with-transformer
     576(define-for-syntax %object-synch-cut-with-transformer
    577577  (er-macro-transformer
    578578    (lambda (frm rnm cmp)
     
    608608;;
    609609
    610 (define-for-syntax  %record-synch-transformer
     610(define-for-syntax %record-synch-transformer
    611611  (er-macro-transformer
    612612    (lambda (frm rnm cmp)
     
    622622(define-syntax %record/synch %record-synch-transformer)
    623623
    624 (define-for-syntax  %record-synch-lock-transformer
     624(define-for-syntax %record-synch-lock-transformer
    625625  (er-macro-transformer
    626626  (lambda (frm rnm cmp)
     
    636636(define-syntax %record-synch/lock %record-synch-lock-transformer)
    637637
    638 (define-for-syntax  %record-synch-unlock-transformer
     638(define-for-syntax %record-synch-unlock-transformer
    639639  (er-macro-transformer
    640640    (lambda (frm rnm cmp)
Note: See TracChangeset for help on using the changeset viewer.