suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

move #:alignment option for `define-cstruct' to end

Browse Source 
to make it consistent with options for `struct' and `define-struct'
This commit is contained in:
Matthew Flatt 2010-09-10 08:06:38 -06:00
parent 5a833ffc57
commit 17cdb9eb3b
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/ffi/unsafe.rkt
View File

@ -1354,7 +1354,7 @@
(and (_-identifier? #'_TYPE stx) (and (_-identifier? #'_TYPE stx)
(identifiers? #'(slot ...))) (identifiers? #'(slot ...)))
(make-syntax #'_TYPE #f #'(slot ...) #'(slot-type ...) #'#f)] (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) (and (_-identifier? #'_TYPE stx)
(identifiers? #'(slot ...))) (identifiers? #'(slot ...)))
(make-syntax #'_TYPE #f #'(slot ...) #'(slot-type ...) #'alignment-expr)] (make-syntax #'_TYPE #f #'(slot ...) #'(slot-type ...) #'alignment-expr)]
@ -1362,7 +1362,7 @@
(and (_-identifier? #'_TYPE stx) (identifiers? #'(slot ...))) (and (_-identifier? #'_TYPE stx) (identifiers? #'(slot ...)))
(with-syntax ([super (datum->syntax #'_TYPE 'super #'_TYPE)]) (with-syntax ([super (datum->syntax #'_TYPE 'super #'_TYPE)])
(make-syntax #'_TYPE #t #'(super slot ...) #'(_SUPER slot-type ...) #'#f))] (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 ...))) (and (_-identifier? #'_TYPE stx) (identifiers? #'(slot ...)))
(with-syntax ([super (datum->syntax #'_TYPE 'super #'_TYPE)]) (with-syntax ([super (datum->syntax #'_TYPE 'super #'_TYPE)])
(make-syntax #'_TYPE #t #'(super slot ...) #'(_SUPER slot-type ...) #'alignment-expr))])) (make-syntax #'_TYPE #t #'(super slot ...) #'(_SUPER slot-type ...) #'alignment-expr))]))

2
collects/scribblings/foreign/types.scrbl
View File

@ -776,7 +776,7 @@ the allocated space, so it is inefficient. Use @scheme[define-cstruct]
below for a more efficient approach.} 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/sup _id
(_id super-id)) (_id super-id))
(alignment code:blank (alignment code:blank