ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-18 17:01:51 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

syscalls: Adjust 'define-bits' to macro literal semantics of 2.2.

Browse source 
* guix/build/syscalls.scm (define-bits): Do not define NAMES... as
top-level variables since that prevents literal matches in 2.2.
Instead, determine constant values at expansion time.
This commit is contained in:
Ludovic Courtès 2017-03-12 17:35:32 +01:00
parent 239c22663a
commit 334c95306a
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
guix/build/syscalls.scm
View file

@ -1346,12 +1346,12 @@ (define-syntax define-bits
(begin (begin
(define-syntax constructor (define-syntax constructor
(syntax-rules (names ...) (syntax-rules (names ...)
((_) 0)
((_ names) values) ... ((_ names) values) ...
((_ several (... ...)) ((_ first rest (... ...))
(logior (constructor several) (... ...))))) (logior (constructor first) rest (... ...)))))
(define (bits->symbols bits) (define (bits->symbols bits)
(bits->symbols-body bits (names ...) (values ...))) (bits->symbols-body bits (names ...) (values ...)))))))
(define names values) ...))))
;; 'local-flags' bits from <bits/termios.h> ;; 'local-flags' bits from <bits/termios.h>
(define-bits local-flags (define-bits local-flags