*unspecified* harder.
This commit is contained in:
parent
8c2d53eb32
commit
141012f5c0
1
mes.c
1
mes.c
|
@ -669,6 +669,7 @@ lookup (char *x, scm *a)
|
||||||
return make_number (atoi (x));
|
return make_number (atoi (x));
|
||||||
if (*x == '\'') return &scm_symbol_quote;
|
if (*x == '\'') return &scm_symbol_quote;
|
||||||
|
|
||||||
|
if (!strcmp (x, scm_unspecified.name)) return &scm_unspecified;
|
||||||
if (!strcmp (x, scm_symbol_cond.name)) return &scm_symbol_cond;
|
if (!strcmp (x, scm_symbol_cond.name)) return &scm_symbol_cond;
|
||||||
if (!strcmp (x, scm_symbol_quote.name)) return &scm_symbol_quote;
|
if (!strcmp (x, scm_symbol_quote.name)) return &scm_symbol_quote;
|
||||||
if (!strcmp (x, scm_lambda.name)) return &scm_lambda;
|
if (!strcmp (x, scm_lambda.name)) return &scm_lambda;
|
||||||
|
|
Loading…
Reference in a new issue