# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 762031077 0
# Node ID 1b850ad3015806ec6711efe7932ae26b4508cf9b
# Parent  5bffd741340ed2087e0ef87c7a947efe62150b1a
(byte-compile-file): Return nil on failure.

diff -r 5bffd741340e -r 1b850ad30158 lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Wed Feb 23 17:43:05 1994 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Wed Feb 23 19:17:57 1994 +0000
@@ -1200,8 +1200,8 @@
 	  (save-excursion
 	    (display-call-tree filename)))
       (if load
-	  (load target-file))))
-  t)
+	  (load target-file))
+      t)))
 
 ;;(defun byte-compile-and-load-file (&optional filename)
 ;;  "Compile a file of Lisp code named FILENAME into a file of byte code,