2073 |
(if (memq 'free-vars byte-compile-warnings) |
(if (memq 'free-vars byte-compile-warnings) |
2074 |
(setq byte-compile-bound-variables |
(setq byte-compile-bound-variables |
2075 |
(cons (nth 1 (nth 1 form)) byte-compile-bound-variables))) |
(cons (nth 1 (nth 1 form)) byte-compile-bound-variables))) |
2076 |
|
(let ((tail (nthcdr 4 form))) |
2077 |
|
(while tail |
2078 |
|
;; If there are any (function (lambda ...)) expressions, compile |
2079 |
|
;; those functions. |
2080 |
|
(if (and (consp (car tail)) |
2081 |
|
(eq (car (car tail)) 'function) |
2082 |
|
(consp (nth 1 (car tail)))) |
2083 |
|
(setcar tail (byte-compile-lambda (nth 1 (car tail)))) |
2084 |
|
;; Likewise for a bare lambda. |
2085 |
|
(if (and (consp (car tail)) |
2086 |
|
(eq (car (car tail)) 'lambda)) |
2087 |
|
(setcar tail (byte-compile-lambda (car tail))))) |
2088 |
|
(setq tail (cdr tail)))) |
2089 |
form) |
form) |
2090 |
|
|
2091 |
(put 'require 'byte-hunk-handler 'byte-compile-file-form-eval-boundary) |
(put 'require 'byte-hunk-handler 'byte-compile-file-form-eval-boundary) |