mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-13 15:10:34 +02:00
Code Activity

Don't accept backquote/unquote/unquote-splicing any longer in elisp.

Browse source 
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.
This commit is contained in:
Daniel Kraft 2009-08-27 16:19:03 +02:00
parent 98c2d75a15
commit 15eeabfd53
1 changed files with 3 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

12
module/language/elisp/compile-tree-il.scm
View file

@ -71,20 +71,14 @@
; named differently; to make easy adaptions, we define these predicates checking ; named differently; to make easy adaptions, we define these predicates checking
; for a symbol being the car of an unquote/unquote-splicing/backquote form. ; 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) (define (backquote? sym)
(and (symbol? sym) (or (eq? sym 'quasiquote) (and (symbol? sym) (eq? sym '\`)))
(eq? sym '\`))))
(define (unquote? sym) (define (unquote? sym)
(and (symbol? sym) (or (eq? sym 'unquote) (and (symbol? sym) (eq? sym '\,)))
(eq? sym '\,))))
(define (unquote-splicing? sym) (define (unquote-splicing? sym)
(and (symbol? sym) (or (eq? sym 'unquote-splicing) (and (symbol? sym) (eq? sym '\,@)))
(eq? sym '\,@))))
; Build a call to a primitive procedure nicely. ; Build a call to a primitive procedure nicely.