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

remove `flet*' elisp special form

Browse source 
* module/language/elisp/compile-tree-il.scm (compile-flet*): Remove.
* module/language/elisp/runtime/function-slot.scm: Update module
  definition.
* test-suite/tests/elisp-compiler.test
  ("Lambda Expressions")["flet and flet*"]: Remove `flet*' test.
This commit is contained in:
BT Templeton 2011-07-10 17:14:32 -04:00
parent e5a361d1f9
commit 0a32abc462
3 changed files with 2 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -41,7 +41,6 @@
compile-flet
compile-let*
compile-lexical-let*
compile-flet*
compile-guile-ref
compile-guile-primitive
compile-while
@ -255,7 +254,7 @@
(iterate (cdr tail) lexical (cons (car tail) dynamic))))))
;;; Compile let and let* expressions. The code here is used both for
;;; let/let* and flet/flet*, just with a different bindings module.
;;; 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
@ -698,11 +697,6 @@
((,bindings . ,body)
(generate-let* loc 'lexical bindings body))))
(defspecial flet* (loc args)
(pmatch args
((,bindings . ,body)
(generate-let* loc function-slot 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)

2
module/language/elisp/runtime/function-slot.scm
View file

@ -32,7 +32,6 @@
(compile-flet . flet)
(compile-let* . let*)
(compile-lexical-let* . lexical-let*)
(compile-flet* . flet*)
(compile-guile-ref . guile-ref)
(compile-guile-primitive . guile-primitive)
(compile-while . while)
@ -56,7 +55,6 @@
flet
let*
lexical-let*
flet*
guile-ref
guile-primitive
while

5
test-suite/tests/elisp-compiler.test
View file

@ -413,7 +413,7 @@
(not (fboundp 'a))
(= a 1))))
(pass-if "flet and flet*"
(pass-if "flet"
(progn (defun foobar () 42)
(defun test () (foobar))
(and (= (test) 42)
@ -421,9 +421,6 @@
(myfoo (symbol-function 'foobar)))
(and (= (myfoo) 42)
(= (test) 42)))
(flet* ((foobar (lambda () 0))
(myfoo (symbol-function 'foobar)))
(= (myfoo) 42))
(flet (foobar)
(defun foobar () 0)
(= (test) 42))