xobj_method_exists   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/core/xobject.xtm

Implementation

(bind-func xobj_method_exists:[i1,i8*,i8*]*
  (lambda (class method)
    (let ((db (xobj_database))
          (clazz:xlist_t--3163971124910877296* (xdict_find db class)))
      (if (not (null? clazz))
          (let ((res:i8* (xdict_find clazz method)))
            (if (not (null? res)) 1 0))
          0))))


Back to Index

Similar Entries