Exemplos de SCM_SYNTAX em C++ (Cpp)

Exemplo n.º 1

Arquivo: macro.c Projeto: 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));
}

Exemplo n.º 2

Arquivo: macro.c Projeto: aharisu/Gauche

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