mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

lexical function binding for elisp

Browse source 
* module/language/elisp/compile-tree-il.scm (access-variable)
  (reference-variable, set-variable!): Handle globally-bound non-special
  variables.

  (bind-lexically?): Create lexical bindings for flet and flet*.

* module/language/elisp/runtime.scm (reference-variable, set-variable!):
  Handle globally-bound non-special variables.

  (built-in-func): Set the variable directly instead of storing the
  function in a fluid.

* module/language/elisp/runtime/subrs.scm (funcall): Call apply
  directly.

* test-suite/tests/elisp-compiler.test ("Function Definitions")["flet
  and flet*"]:

Signed-off-by: Andy Wingo <wingo@pobox.com>
This commit is contained in:
Brian Templeton 2010-08-16 03:20:55 -04:00 • committed by Andy Wingo
parent 3f70b2dc5c
commit c6920dc8ba
4 changed files with 45 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/language/elisp/runtime/subrs.scm
View file

@ -358,9 +358,8 @@
(prim apply (@ (guile) apply) real-func args))))
(built-in-func funcall
(let ((myapply (fluid-ref apply)))
(lambda (func . args)
(myapply func args))))
(lambda (func . args)
(apply func args)))
;;; Throw can be implemented as built-in function.