11 lines
296 B
Text
11 lines
296 B
Text
macro "mk_m " id:ident v:str n:num c:char : command =>
|
|
let tk := Lean.Syntax.mkStrLit id.getId.toString
|
|
`(macro $tk:str : term => `(fun (x : String) => x ++ $v ++ toString $n ++ toString $c))
|
|
|
|
#print " ---- "
|
|
|
|
mk_m foo "bla" 10 'a'
|
|
mk_m boo "hello" 3 'b'
|
|
|
|
#check foo "world"
|
|
#check boo "boo"
|