diff options
author | Daniel Kraft <d@domob.eu> | 2009-08-27 16:19:03 +0200 |
---|---|---|
committer | Daniel Kraft <d@domob.eu> | 2009-08-27 16:19:03 +0200 |
commit | 15eeabfd53326fd292e64f9c0669bc98039ee17f (patch) | |
tree | 0b71f61b1fce8b97a7ee8f1cc1dd1f75d85444a2 | |
parent | 98c2d75a15b1d61ac5cefb6338a9459928a23883 (diff) | |
download | guile-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.scm | 12 |
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. |