Wie führt man bedingte Anweisungen auf SMOB-Typen durch?

Question

Ich weiß, dass Guile eine scm_assert_smob_type Funktion hat, aber ich glaube nicht, dass es einen boolean zurückgibt.

Ich möchte in der Lage sein, etwas zu tun wie:

if (type(smob) == int_smob) 
{ 
    int_foo(smob); 
} 

else if (type(smob) == string_smob) 
{ 
    string_foo(smob); 
} 

Answer 1

Sie scm_assert_smob_type ‚s definition für Hinweise überprüfen:

void 
scm_assert_smob_type (scm_t_bits tag, SCM val) 
{ 
    if (!SCM_SMOB_PREDICATE (tag, val)) 
    scm_wrong_type_arg_msg (NULL, 0, val, scm_smobs[SCM_TC2SMOBNUM(tag)].name); 
} 

Wie Sie sehen können, es nutzt SCM_SMOB_PREDICATE, die eine zurückkehrt boolesch. Das Makro ist öffentlich zugänglich und in <smob.h> definiert.