From 14499aa8223c807fcb1a53ed7c2096583caefd91 Mon Sep 17 00:00:00 2001
From: Paulo Matos <pmatos@linki.tools>
Date: Wed, 13 Feb 2019 09:02:32 +0100
Subject: [PATCH] Free buffer in case of unknown error - avoids memory leak

---
 racket/src/rktio/rktio_fs.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/racket/src/rktio/rktio_fs.c b/racket/src/rktio/rktio_fs.c
index c0c5010611..2bf6d18c8e 100644
--- a/racket/src/rktio/rktio_fs.c
+++ b/racket/src/rktio/rktio_fs.c
@@ -629,8 +629,10 @@ char *rktio_get_current_directory(rktio_t *rktio)
    } else
      break;
  }
- if (!r)
+ if (!r) {
+   free(s);
    get_posix_error();
+ }
  return r;
 #endif
 }