diff options
| -rw-r--r-- | guix/build/syscalls.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm index ae5b2ed112..73c54372e1 100644 --- a/guix/build/syscalls.scm +++ b/guix/build/syscalls.scm @@ -388,7 +388,11 @@ system to PUT-OLD." (types ...) (fields ...)))))) (define-syntax read-type - (syntax-rules (~) + (syntax-rules (~ quote *) + ((_ bv offset '*) + (make-pointer (bytevector-uint-ref bv offset + (native-endianness) + (sizeof* '*)))) ((_ bv offset (type ~ order)) (bytevector-uint-ref bv offset (endianness order) (sizeof* type))) |