diff --git a/src/environment.scm b/src/environment.scm
index c45cb62..e20c56d 100644
--- a/src/environment.scm
+++ b/src/environment.scm
@@ -32,10 +32,16 @@
   )
 
  (import scheme
-	 (chicken base))
+	 (chicken base)
+	 (chicken process-context)
+	 (chicken process))
 
+ ;; Starts an editor on given file
  (define (edit-file file-path)
    (print "Editing...")
-   #f)
+   (let* ((edvar (get-environment-variable "EDITOR"))
+	  (editor (or edvar "editor")))
+     (process-run editor (list file-path))
+     ))
 
  )