diff --git a/collects/ffi/unsafe.rkt b/collects/ffi/unsafe.rkt index 141f766e8c..451b409da6 100644 --- a/collects/ffi/unsafe.rkt +++ b/collects/ffi/unsafe.rkt @@ -1354,7 +1354,7 @@ (and (_-identifier? #'_TYPE stx) (identifiers? #'(slot ...))) (make-syntax #'_TYPE #f #'(slot ...) #'(slot-type ...) #'#f)] - [(_ _TYPE #:alignment alignment-expr ([slot slot-type] ...)) + [(_ _TYPE ([slot slot-type] ...) #:alignment alignment-expr) (and (_-identifier? #'_TYPE stx) (identifiers? #'(slot ...))) (make-syntax #'_TYPE #f #'(slot ...) #'(slot-type ...) #'alignment-expr)] @@ -1362,7 +1362,7 @@ (and (_-identifier? #'_TYPE stx) (identifiers? #'(slot ...))) (with-syntax ([super (datum->syntax #'_TYPE 'super #'_TYPE)]) (make-syntax #'_TYPE #t #'(super slot ...) #'(_SUPER slot-type ...) #'#f))] - [(_ (_TYPE _SUPER) #:alignment alignment-expr ([slot slot-type] ...)) + [(_ (_TYPE _SUPER) ([slot slot-type] ...) #:alignment alignment-expr) (and (_-identifier? #'_TYPE stx) (identifiers? #'(slot ...))) (with-syntax ([super (datum->syntax #'_TYPE 'super #'_TYPE)]) (make-syntax #'_TYPE #t #'(super slot ...) #'(_SUPER slot-type ...) #'alignment-expr))])) diff --git a/collects/scribblings/foreign/types.scrbl b/collects/scribblings/foreign/types.scrbl index 612df43b29..58df957a94 100644 --- a/collects/scribblings/foreign/types.scrbl +++ b/collects/scribblings/foreign/types.scrbl @@ -776,7 +776,7 @@ the allocated space, so it is inefficient. Use @scheme[define-cstruct] below for a more efficient approach.} -@defform/subs[(define-cstruct id/sup alignment ([field-id type-expr] ...)) +@defform/subs[(define-cstruct id/sup ([field-id type-expr] ...) alignment) [(id/sup _id (_id super-id)) (alignment code:blank