From efc33cd1497c00c5ebf961e834efc1d85f3e28ac Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Mon, 18 Jun 2018 13:46:10 +0200
Subject: [PATCH] vm: Fix typo when checking for 'madvise' error code.

* libguile/vm.c (return_unused_stack_to_os): Check for EAGAIN, not -EAGAIN.
---
 libguile/vm.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/libguile/vm.c b/libguile/vm.c
index 18f219249..92d568059 100644
--- a/libguile/vm.c
+++ b/libguile/vm.c
@@ -903,6 +903,7 @@ return_unused_stack_to_os (struct scm_vm *vp)
       do
         ret = madvise ((void *) lo, hi - lo, MADV_DONTNEED);
       while (ret && errno == -EAGAIN);
+      while (ret && errno == EAGAIN);
 
       if (ret)
         perror ("madvise failed");