summaryrefslogtreecommitdiff
path: root/test-suite/tests/elisp-compiler.test
diff options
context:
space:
mode:
authorBT Templeton <bpt@hcoop.net>2011-07-10 17:14:32 -0400
committerBT Templeton <bpt@hcoop.net>2012-02-03 18:53:49 -0500
commit0a32abc462156f5891cd990ef1f38f8a7915ca22 (patch)
treef30a16dc0e462088dad932215ac693847204cd7c /test-suite/tests/elisp-compiler.test
parente5a361d1f9c7ff150ae740abcf66a85467b1deca (diff)
downloadguile-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.test5
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))