Return #f when no path is found

Return `SCM_BOOL_F' when `realpath' can't find the path.

1 files changed, 4 insertions, 1 deletions

diff --git a/src/gitto-path.c b/src/gitto-path.c
index 4fdd6ab..7ed5f51 100644
--- a/src/gitto-path.c
+++ b/src/gitto-path.c
@@ -26,7 +26,10 @@ SCM_DEFINE(realpath_wrapper, "realpath", 1, 0, 0,
 {
     char *relative_path = scm_to_locale_string(path);
     char *resolved_path = realpath(relative_path, NULL);
-    SCM scm_resolved_path = scm_from_locale_string(resolved_path);
+    SCM scm_resolved_path = SCM_BOOL_F;
+
+    if (resolved_path)
+        scm_resolved_path = scm_from_locale_string(resolved_path);
 
     free(relative_path);
     free(resolved_path);