Remove unused local bindings from system.

waywardmonkeys · Jun 24, 2014 · f6930d9 · f6930d9
1 parent 4dd66c8
commit f6930d9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/sources/system/unix-operating-system.dylan b/sources/system/unix-operating-system.dylan
@@ -398,7 +398,7 @@ define function run-application
       run-outputter(outputter, outputter-read-fd);
     end if;
 
-    let (return-pid, status-code) = %waitpid(pid, 0);
+    let (_return-pid, status-code) = %waitpid(pid, 0);
     let signal-code = logand(status-code, #o177);
     let exit-code = ash(status-code, -8);
     apply(values, exit-code, (signal-code ~= 0) & signal-code, #f,
@@ -428,7 +428,7 @@ define function wait-for-application-process
     (process :: <application-process>)
  => (exit-code :: <integer>, signal :: false-or(<integer>));
   if (process.%application-process-state == #"running")
-    let (return-pid, return-status)
+    let (_return-pid, return-status)
       = %waitpid(process.application-process-id, 0);
     process.%application-process-status-code := return-status;
     process.%application-process-state := #"exited";