From 96af558907fecb22086a4ebc260b20f34fb25335 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Mon, 30 Mar 2015 15:20:55 +0200
Subject: elf: Add missing argument in 'elf-segment'.

* guix/elf.scm (elf-segment): Add missing argument N.
---
 guix/elf.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'guix/elf.scm')

diff --git a/guix/elf.scm b/guix/elf.scm
index a4b0e819a5..4283dbd2e4 100644
--- a/guix/elf.scm
+++ b/guix/elf.scm
@@ -1,6 +1,6 @@
 ;;; Guile ELF reader and writer
 
-;; Copyright (C)  2011, 2012, 2013, 2014 Free Software Foundation, Inc.
+;; Copyright (C)  2011, 2012, 2013, 2014, 2015 Free Software Foundation, Inc.
 
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -571,6 +571,7 @@
      ((4) parse-elf32-program-header)
      ((8) parse-elf64-program-header)
      (else (error "unhandled pointer size")))
+   n
    (elf-bytes elf)
    (+ (elf-phoff elf) (* n (elf-phentsize elf)))
    (elf-byte-order elf)))
-- 
cgit v1.2.3