summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Kraft <d@domob.eu>2009-08-27 16:19:03 +0200
committerDaniel Kraft <d@domob.eu>2009-08-27 16:19:03 +0200
commit15eeabfd53326fd292e64f9c0669bc98039ee17f (patch)
tree0b71f61b1fce8b97a7ee8f1cc1dd1f75d85444a2
parent98c2d75a15b1d61ac5cefb6338a9459928a23883 (diff)
downloadguile-15eeabfd53326fd292e64f9c0669bc98039ee17f.tar.gz
Don't accept backquote/unquote/unquote-splicing any longer in elisp.
The real names \`, \, and \,@ should be used instead and are returned now by the real reader. * module/language/elisp/compile-tree-il.scm: Only accept correct names.
-rw-r--r--module/language/elisp/compile-tree-il.scm12
1 files changed, 3 insertions, 9 deletions
diff --git a/module/language/elisp/compile-tree-il.scm b/module/language/elisp/compile-tree-il.scm
index e88ac17b4..b54f7f60c 100644
--- a/module/language/elisp/compile-tree-il.scm
+++ b/module/language/elisp/compile-tree-il.scm
@@ -71,20 +71,14 @@
; named differently; to make easy adaptions, we define these predicates checking
; for a symbol being the car of an unquote/unquote-splicing/backquote form.
-; FIXME: Remove the quasiquote/unquote/unquote-splicing symbols when real elisp
-; reader is there.
-
(define (backquote? sym)
- (and (symbol? sym) (or (eq? sym 'quasiquote)
- (eq? sym '\`))))
+ (and (symbol? sym) (eq? sym '\`)))
(define (unquote? sym)
- (and (symbol? sym) (or (eq? sym 'unquote)
- (eq? sym '\,))))
+ (and (symbol? sym) (eq? sym '\,)))
(define (unquote-splicing? sym)
- (and (symbol? sym) (or (eq? sym 'unquote-splicing)
- (eq? sym '\,@))))
+ (and (symbol? sym) (eq? sym '\,@)))
; Build a call to a primitive procedure nicely.