mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

lexical binding macros

Browse source 
* module/language/elisp/boot.el (lexical-let, lexical-let*): New macros.

* module/language/elisp/compile-tree-il.scm (bind-lexically?): Remove
  the check for a `lexical' flag, since `lexical-let' and `lexical-let*'
  are no longer special operators.

  (compile-lexical-let, compile-lexical-let*): Remove.

* module/language/elisp/runtime/function-slot.scm: Update module
  definition.
This commit is contained in:
BT Templeton 2011-08-08 20:20:16 -04:00
parent 13f022c9f7
commit 9083c48d37
3 changed files with 25 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -37,11 +37,9 @@
compile-defvar
compile-setq
compile-let
compile-lexical-let
compile-flet
compile-labels
compile-let*
compile-lexical-let*
compile-guile-ref
compile-guile-primitive
compile-function
@ -205,8 +203,7 @@
value))))
(define (bind-lexically? sym module decls)
(or (eq? module 'lexical)
(eq? module function-slot)
(or (eq? module function-slot)
(let ((decl (assq-ref decls sym)))
(and (equal? module value-slot)
(or
@ -273,10 +270,6 @@
;;; Compile let and let* expressions. The code here is used both for
;;; let/let* and flet, just with a different bindings module.
;;;
;;; A special module value 'lexical means that we're doing a lexical-let
;;; instead and the bindings should not be saved to globals at all but
;;; be done with the lexical framework instead.
;;; Let is done with a single call to let-dynamic binding them locally
;;; to new values all "at once". If there is at least one variable to
@ -621,14 +614,6 @@
(map (cut parse-let-binding loc <>) bindings)
body))))
(defspecial lexical-let (loc args)
(pmatch args
((,bindings . ,body)
(generate-let loc
'lexical
(map (cut parse-let-binding loc <>) bindings)
body))))
(defspecial flet (loc args)
(pmatch args
((,bindings . ,body)
@ -665,14 +650,6 @@
(map (cut parse-let-binding loc <>) bindings)
body))))
(defspecial lexical-let* (loc args)
(pmatch args
((,bindings . ,body)
(generate-let* loc
'lexical
(map (cut parse-let-binding loc <>) bindings)
body))))
;;; guile-ref allows building TreeIL's module references from within
;;; elisp as a way to access data within the Guile universe. The module
;;; and symbol referenced are static values, just like (@ module symbol)