mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-01 07:20:20 +02:00
Code Activity

deprecated eval-when situations

Browse source 
(Best-ability ChangeLog annotation added by Christopher Allan 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 Christopher Allan Webber
parent 4455381dc7
commit 7bfd2ba132
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

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