Don't run the program if it doesn't compile.

stamourv · Oct 23, 2011 · b43fe4e · b43fe4e
1 parent f3c1106
commit b43fe4e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/p b/p
@@ -7,6 +7,6 @@
 
 (if (= (vector-length (current-command-line-arguments)) 1)
     (let ([file (vector-ref (current-command-line-arguments) 0)])
-      (void (system* "picobit"    (path-replace-suffix file ".scm"))
-            (system* "picobit-vm" (path-replace-suffix file ".hex"))))
+      (void (and (system* "picobit"    (path-replace-suffix file ".scm"))
+                 (system* "picobit-vm" (path-replace-suffix file ".hex")))))
     (usage))