Edit

kc3-lang/kc3/test/ikc3/defoperator.kc3

Branch :

  • test/ikc3/defoperator.kc3
  • quote %KC3.Op{callable: fn (a, b) { a + b }}
    %KC3.Op{callable: fn (a, b) { a + b }}
    quote defoperator %KC3.Op{sym: :****, arity: 2, precedence: 13, associativity: 1, callable: cfn Tag "tag_mul" (Tag, Tag, Result)}
    defoperator %KC3.Op{sym: :****, arity: 2, precedence: 13, associativity: 1, callable: cfn Tag "tag_mul" (Tag, Tag, Result)}
    quote 4 **** 4
    4 **** 4
    quote 4 **** 4 **** 4
    4 **** 4 **** 4
    quote 4 **** 4 + 4
    4 **** 4 + 4
    quote to_lisp(quote 4 **** 4 + 4)
    to_lisp(quote 4 **** 4 + 4)