diff options
author | BT Templeton <bpt@hcoop.net> | 2011-07-10 17:14:32 -0400 |
---|---|---|
committer | BT Templeton <bpt@hcoop.net> | 2012-02-03 18:53:49 -0500 |
commit | 0a32abc462156f5891cd990ef1f38f8a7915ca22 (patch) | |
tree | f30a16dc0e462088dad932215ac693847204cd7c /test-suite/tests/elisp-compiler.test | |
parent | e5a361d1f9c7ff150ae740abcf66a85467b1deca (diff) | |
download | guile-0a32abc462156f5891cd990ef1f38f8a7915ca22.tar.gz |
remove `flet*' elisp special form
* 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.
Diffstat (limited to 'test-suite/tests/elisp-compiler.test')
-rw-r--r-- | test-suite/tests/elisp-compiler.test | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/test-suite/tests/elisp-compiler.test b/test-suite/tests/elisp-compiler.test index 2074c8d39..345dd68e0 100644 --- a/test-suite/tests/elisp-compiler.test +++ b/test-suite/tests/elisp-compiler.test @@ -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)) |