nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

* 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 @@ given an integer, returns the list of names of the constants that are or'd."
(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