Skip to content
Browse files

add symbol list macro-quoter

  • Loading branch information...
1 parent 78441dc commit 0f387070561fae42b94fb1929eb6465ba503679a @vito committed Jan 13, 2012
Showing with 6 additions and 0 deletions.
  1. +6 −0 kernel/quotes.ay
View
6 kernel/quotes.ay
@@ -33,4 +33,10 @@ macro(macro-quoter(~n) [~*as]: ~*body):
macro-quoter(w) [_, _, v]: v split
+macro-quoter(s) [_, _, v]:
+ v split collect [s]:
+ if(s =~ Regexp new("[\p{Ll}_]", Regexp::KCODE_UTF8))
+ then: s tr("-", "_") to-sym
+ else: s to-sym
+
macro-quoter(raw) [r]: r

0 comments on commit 0f38707

Please sign in to comment.
Something went wrong with that request. Please try again.