diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-02-17 20:29:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-02-17 20:29:57 +0000 |
| commit | b890df1a7af89895f1437d0cb7d2bb659bfe7462 (patch) | |
| tree | f0384d7a018b385bff9273796b9d1c514de0a32e /lisp/emacs-lisp | |
| parent | 8290babd65e20c3cbe2eb850a40a078afee63463 (diff) | |
| download | emacs-b890df1a7af89895f1437d0cb7d2bb659bfe7462.tar.gz emacs-b890df1a7af89895f1437d0cb7d2bb659bfe7462.tar.bz2 emacs-b890df1a7af89895f1437d0cb7d2bb659bfe7462.zip | |
(byte-compile-lambda): Test of byte-compile-compatibility was backwards.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 817907ccf2d..f4bba7ed216 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -1681,9 +1681,10 @@ If FORM is a lambda or a macro, byte-compile it as a function." (byte-compile-warn "malformed interactive spec: %s" (prin1-to-string int)))))) (let ((compiled (byte-compile-top-level (cons 'progn body) nil 'lambda))) + (setq foo compiled) (if (and (eq 'byte-code (car-safe compiled)) - (byte-compile-version-cond - byte-compile-compatibility)) + (not (byte-compile-version-cond + byte-compile-compatibility))) (apply 'make-byte-code (append (list arglist) ;; byte-string, constants-vector, stack depth |