1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-18 02:00:20 +02:00

use correct names for quasiquotation operators

Use #{`}#, #{,}# and #{,@}# as the quasiquote, unquote and
unquote-splicing operators, respectively. Previously they were named
escaping.

* module/language/elisp/compile-tree-il.scm (unquote?): Change "\," to
  "#{,}#".
  (unquote-splicing): Change "\,@" to "#{,@}#".
  (#{compile-`}#): Rename from #{compile-\`}#.
* module/language/elisp/runtime/function-slot.scm: Import #{compile-`}#
  instead of #{compile-\`}#, and re-export as #{`}# instead of as
  #{\`}#.
* module/language/elisp/parser.scm (quotation-symbols):
* test-suite/tests/elisp-compiler.test ("Eval", "Quotation"):
* test-suite/tests/elisp-reader.test ("Parser"): Change "\`", "\,", and
  "\,@" to "#{`}#", "#{,}#" and "#{,@}#", respectively.
This commit is contained in:
Brian Templeton 2010-07-09 20:33:32 -04:00
parent 7d6816f0c7
commit 3b93c9b881
5 changed files with 19 additions and 19 deletions

View file

@ -49,7 +49,7 @@
compile-function
compile-defmacro
compile-defun
compile-\`
#{compile-`}#
compile-quote))
;;; Certain common parameters (like the bindings data structure or
@ -101,10 +101,10 @@
;;; unquote/unquote-splicing/backquote form.
(define (unquote? sym)
(and (symbol? sym) (eq? sym '\,)))
(and (symbol? sym) (eq? sym '#{,}#)))
(define (unquote-splicing? sym)
(and (symbol? sym) (eq? sym '\,@)))
(and (symbol? sym) (eq? sym '#{,@}#)))
;;; Build a call to a primitive procedure nicely.
@ -876,7 +876,7 @@
body))
(make-const loc name)))))))
(defspecial \` (loc args)
(defspecial #{`}# (loc args)
(pmatch args
((,val)
(process-backquote loc val))))