From 15eeabfd53326fd292e64f9c0669bc98039ee17f Mon Sep 17 00:00:00 2001 From: Daniel Kraft Date: Thu, 27 Aug 2009 16:19:03 +0200 Subject: [PATCH] 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. --- module/language/elisp/compile-tree-il.scm | 12 +++--------- 1 file 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.