Changeset 6202 in project for misc-extn/trunk/misc-extn-dsssl.scm


Ignore:
Timestamp:
09/30/07 05:36:48 (14 years ago)
Author:
Kon Lovett
Message:

Rmvd extra dsssl-fixup, put test of dsssl-fixup back in testbase test, works w/ hygienic macros.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • misc-extn/trunk/misc-extn-dsssl.scm

    r6200 r6202  
    44;;; DSSSL Extended Lambda List
    55
    6 (cond-expand
    7   [hygienic-macros
    8 (syntax-error 'dsssl-fixup "unsupported by hygienic macros") ]
    9   [else
    106(define-macro (dsssl-fixup ?keys ?opts ?rest . ?body)
    117  (let-values (
     
    2319    `(let-values ([(,?rest ,@optvars)
    2420                   (fixup-extended-lambda-list ',?keys ,?rest ,@optvals)])
    25        ,@?body ) ) ) ] )
     21       ,@?body ) ) )
Note: See TracChangeset for help on using the changeset viewer.