mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-06 04:00:26 +02:00
Code Activity

deprecated eval-when situations

Browse source 
(Best-ability ChangeLog annotation added by Christine Lemmer-Webber.)

* module/language/elisp/compile-tree-il.scm (eval-when): Update.
This commit is contained in:
Robin Templeton 2014-08-11 06:55:11 -04:00 • committed by Christine Lemmer-Webber
parent 4b92314676
commit f4a154f9df
No known key found for this signature in database
GPG key ID: 4BC025925FF8F4D3
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
module/language/elisp/compile-tree-il.scm
View file

@ -475,9 +475,12 @@
(defspecial eval-when (loc args) (defspecial eval-when (loc args)
(pmatch args (pmatch args
((,situations . ,forms) ((,situations . ,forms)
(let ((compile? (memq ':compile-toplevel situations)) (let ((compile? (or (memq ':compile-toplevel situations)
(load? (memq ':load-toplevel situations)) (memq 'compile situations)))
(execute? (memq ':execute situations))) (load? (or (memq ':load-toplevel situations)
(memq 'load situations)))
(execute? (or (memq ':execute situations)
(memq 'eval situations))))
(cond (cond
((not (fluid-ref toplevel?)) ((not (fluid-ref toplevel?))
(if execute? (if execute?