C++ (Cpp) SCM_SYNTAX Exemples

Exemple #1

Fichier : macro.c Projet : tgfjt/Gauche

static void syntax_print(ScmObj obj, ScmPort *port, ScmWriteContext *mode)
{
    ScmSymbol *name = SCM_SYNTAX(obj)->name;
    Scm_Printf(port, "#<syntax %A>", (name ? SCM_OBJ(name) : SCM_FALSE));
}

Exemple #2

Fichier : macro.c Projet : aharisu/Gauche

static void syntax_print(ScmObj obj, ScmPort *port, ScmWriteContext *mode)
{
    Scm_Printf(port, "#<syntax %A>", SCM_SYNTAX(obj)->name);
}