Use whole file-name-history'.

lisp/ChangeLog

+2014-01-15  Daniel Colascione  <dancol@dancol.org>
+
+	* emacs-lisp/bytecomp.el (byte-compile-file): Use whole
+	`buffer-file-name' in interactive-form so that we don't leave
+	pathless file names in `file-name-history'.
+
 2014-01-15  Juri Linkov  <juri@jurta.org>
 
 	* indent.el (indent-rigidly): Set deactivate-mark to nil

lisp/emacs-lisp/bytecomp.el

@@ -1714,7 +1714,7 @@ The value is non-nil if there were no errors, nil if errors."
      (list (read-file-name (if current-prefix-arg
 			       "Byte compile and load file: "
 			     "Byte compile file: ")
-			   file-dir file-name nil)
+			   file-dir buffer-file-name nil)
 	   current-prefix-arg)))
   ;; Expand now so we get the current buffer's defaults
   (setq filename (expand-file-name filename))