# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 870814376 0
# Node ID d8eb24685152652ed301710e9281cf248c1d10ea
# Parent  3d80c899a15dfd12f6f14b4de7cc20a049822f9b
(functionp): Use byte-code-function-p, not compiled-function-p.

diff -r 3d80c899a15d -r d8eb24685152 lisp/subr.el
--- a/lisp/subr.el	Tue Aug 05 20:51:55 1997 +0000
+++ b/lisp/subr.el	Tue Aug 05 20:52:56 1997 +0000
@@ -1065,7 +1065,7 @@
 
 (defun functionp (object)
   "Non-nil if OBJECT is a type of object that can be called as a function."
-  (or (subrp object) (compiled-function-p object)
+  (or (subrp object) (byte-code-function-p object)
       (eq (car-safe object) 'lambda)
       (and (symbolp object) (fboundp object))))