From 5199c059e83c0622cd0667a6bde8d1cca5cba0fd Mon Sep 17 00:00:00 2001 From: BT Templeton Date: Tue, 16 Aug 2011 23:16:46 -0400 Subject: sharpsign-colon for uninterned symbols * module/language/elisp/lexer.sm (lex): Add support for `#:' syntax for uninterned symbols. --- module/language/elisp/lexer.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'module/language') diff --git a/module/language/elisp/lexer.scm b/module/language/elisp/lexer.scm index 2e52cc780..1933ff34d 100644 --- a/module/language/elisp/lexer.scm +++ b/module/language/elisp/lexer.scm @@ -337,7 +337,12 @@ (let ((mark (get-circular-marker port))) (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. ((#\() (return 'paren-open #f)) ((#\)) (return 'paren-close #f)) -- cgit v1.2.3