mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

sharpsign-colon for uninterned symbols

Browse source 
* module/language/elisp/lexer.sm (lex): Add support for `#:' syntax for
  uninterned symbols.
This commit is contained in:
BT Templeton 2011-08-16 23:16:46 -04:00
parent 39864d2014
commit 5199c059e8
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
module/language/elisp/lexer.scm
View file

@ -337,7 +337,12 @@
(let ((mark (get-circular-marker port))) (let ((mark (get-circular-marker port)))
(return (car mark) (cdr mark)))) (return (car mark) (cdr mark))))
((#\') ((#\')
(return 'function #f))))) (return 'function #f))
((#\:)
(call-with-values
(lambda () (get-symbol-or-number port))
(lambda (type str)
(return 'symbol (make-symbol str))))))))
;; Parentheses and other special-meaning single characters. ;; Parentheses and other special-meaning single characters.
((#\() (return 'paren-open #f)) ((#\() (return 'paren-open #f))
((#\)) (return 'paren-close #f)) ((#\)) (return 'paren-close #f))