Arc Forumnew | comments | leaders | submitlogin
2 points by almkglor 6001 days ago | link | parent

Ah, it seems you're right ^^ From canonical arc:

  (define (ar-tag type rep)
    (cond ((eqv? (ar-type rep) type) rep)
          (#t (vector 'tagged type rep))))

  (xdef 'annotate ar-tag)