From 136ea767e2f76aa3785ebd1ca214411cc68b4533 Mon Sep 17 00:00:00 2001
From: Paulo Matos <pmatos@linki.tools>
Date: Wed, 13 Feb 2019 09:09:54 +0100
Subject: [PATCH] Free memory stored when error occurs - otherwise buffer leaks

---
 racket/src/rktio/rktio_fs.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/racket/src/rktio/rktio_fs.c b/racket/src/rktio/rktio_fs.c
index 2bf6d18c8e..d147472fba 100644
--- a/racket/src/rktio/rktio_fs.c
+++ b/racket/src/rktio/rktio_fs.c
@@ -889,6 +889,7 @@ char *rktio_readlink(rktio_t *rktio, const char *fullfilename)
           set_racket_error(RKTIO_ERROR_NOT_A_LINK);
         else
           get_posix_error();
+        free(buffer);
         return NULL;
       }
     } else if (len == buf_len) {