C++ (Cpp) sexp_release_object Exemples

Exemple #1

Fichier : chibi_scheme_yuniffi_bridge.c Projet : okuoku/yuni

static sexp
sexp_yuniffi_nccc_proc_release(sexp ctx, sexp self, sexp_sint_t n,
                               sexp procobjptr){
    sexp procobj;
    REQUIRE_TAG(ctx, self, procobjptr, sexp_pointerp, SEXP_CPOINTER);
    procobj = (sexp)sexp_cpointer_value(procobjptr);
    sexp_release_object(ctx, procobj);
    return SEXP_VOID;
}

Exemple #2

Fichier : callback-impl.c Projet : maxime-tournier/chibi-callback

void callback_free(struct callback* c) {
  ffi_closure_free(c->closure);
  sexp_release_object(c->ctx, c->proc);
}