eql   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/examples/core/typeclasses.xtm

Implementation

;; first function
(bind-func eql:[i1,!a,!a]*
  (lambda (a b)
    (let ((dict:EQ* (EQ a))
          (f (tref dict 0)))
      (f a b))))


Back to Index

Similar Entries