From 92c1ba9a62b8ce2a29bd657ca29d853005956953 Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@indiana.edu>
Date: Thu, 2 Apr 2020 19:36:30 -0400
Subject: [PATCH] Free buffer in error case.

Found by scan-build.
cc @pmatos.
---
 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 4f0eabb69b..844b025988 100644
--- a/racket/src/rktio/rktio_fs.c
+++ b/racket/src/rktio/rktio_fs.c
@@ -1949,8 +1949,10 @@ char *rktio_system_path(rktio_t *rktio, int which)
 #else      
       return append_paths(home, "racket-prefs.rktd", 1, 0);
 #endif
-    } else
+    } else {
+      free(home);
       return strdup("/");
+    }
   }
 #endif