diff options
| author | Richard M. Stallman | 1993-02-17 20:29:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-02-17 20:29:57 +0000 |
| commit | b890df1a7af89895f1437d0cb7d2bb659bfe7462 (patch) | |
| tree | f0384d7a018b385bff9273796b9d1c514de0a32e | |
| parent | 8290babd65e20c3cbe2eb850a40a078afee63463 (diff) | |
| download | emacs-b890df1a7af89895f1437d0cb7d2bb659bfe7462.tar.gz emacs-b890df1a7af89895f1437d0cb7d2bb659bfe7462.zip | |
(byte-compile-lambda): Test of byte-compile-compatibility was backwards.
| -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." | |||
| 1681 | (byte-compile-warn "malformed interactive spec: %s" | 1681 | (byte-compile-warn "malformed interactive spec: %s" |
| 1682 | (prin1-to-string int)))))) | 1682 | (prin1-to-string int)))))) |
| 1683 | (let ((compiled (byte-compile-top-level (cons 'progn body) nil 'lambda))) | 1683 | (let ((compiled (byte-compile-top-level (cons 'progn body) nil 'lambda))) |
| 1684 | (setq foo compiled) | ||
| 1684 | (if (and (eq 'byte-code (car-safe compiled)) | 1685 | (if (and (eq 'byte-code (car-safe compiled)) |
| 1685 | (byte-compile-version-cond | 1686 | (not (byte-compile-version-cond |
| 1686 | byte-compile-compatibility)) | 1687 | byte-compile-compatibility))) |
| 1687 | (apply 'make-byte-code | 1688 | (apply 'make-byte-code |
| 1688 | (append (list arglist) | 1689 | (append (list arglist) |
| 1689 | ;; byte-string, constants-vector, stack depth | 1690 | ;; byte-string, constants-vector, stack depth |