Updating: minor cli update

gallettilance · Apr 29, 2018 · 41e7ef3 · 41e7ef3
1 parent ce9b848
commit 41e7ef3
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/lambda/lisp_parser.dats b/lambda/lisp_parser.dats
@@ -116,6 +116,7 @@ in
   end
 end
 
+(* ****** ****** *)
 
 implement
 parse_lisp(f) = let

diff --git a/src/cli.dats b/src/cli.dats
@@ -126,8 +126,10 @@ implement
 do_execute(args) =
 case+ args of 
 | nil0() => (println!("must provide file path to execute"); ())
-| cons0(f, args) => file_write_contract((f, val2str(interp(parse_lisp(f)))))
-
+| cons0(f, args) => 
+  if file_exists(f) 
+  then file_write_contract((f, val2str(interp(parse_lisp(f)))))
+  else (println!("Invalid file path"); ())
 
 implement
 do_code(args) = let
-Original file line number
+Diff line change
@@ Expand Up / @@ -116,6 +116,7 @@ in @@
       end
     end
+    (* ****** ****** *)
     implement
     parse_lisp(f) = let
@@ Expand Down @@