Propagate clm return code

1 files changed, 1 insertions, 1 deletions

diff --git a/clpm.icl b/clpm.icl
index a18c2cc..b434edd 100644
--- a/clpm.icl
+++ b/clpm.icl
@@ -114,7 +114,7 @@ cmd_make opts pkg io w
 	" " + fromJust pkg.main + " -o " + fromJust pkg.main
 #! io = io <<< cmd <<< "\r\n"
 #! (r,w) = syscall cmd w
-= (io,w)
+= (io,setReturnCode (if (r==0) 0 -1) w)
 
 parseArgs :: (Arguments [String] -> ([String], Arguments))
 parseArgs = pa []