* scm-valprint.c (scm_isymnames): Remove "#@" prefix.
(scm_scmval_print): Do not print "#@" prefix. * mdebugread.c: Add check_typedef/CHECK_TYPEDEF as needed.
This commit is contained in:
parent
b18319318b
commit
dcdba37e2d
3 changed files with 23 additions and 21 deletions
|
@ -49,26 +49,26 @@ scm_inferior_print (value, stream, format, deref_ref, recurse, pretty)
|
|||
static char *scm_isymnames[] =
|
||||
{
|
||||
/* This table must agree with the declarations */
|
||||
"#@and",
|
||||
"#@begin",
|
||||
"#@case",
|
||||
"#@cond",
|
||||
"#@do",
|
||||
"#@if",
|
||||
"#@lambda",
|
||||
"#@let",
|
||||
"#@let*",
|
||||
"#@letrec",
|
||||
"#@or",
|
||||
"#@quote",
|
||||
"#@set!",
|
||||
"#@define",
|
||||
"and",
|
||||
"begin",
|
||||
"case",
|
||||
"cond",
|
||||
"do",
|
||||
"if",
|
||||
"lambda",
|
||||
"let",
|
||||
"let*",
|
||||
"letrec",
|
||||
"or",
|
||||
"quote",
|
||||
"set!",
|
||||
"define",
|
||||
#if 0
|
||||
"#@literal-variable-ref",
|
||||
"#@literal-variable-set!",
|
||||
"literal-variable-ref",
|
||||
"literal-variable-set!",
|
||||
#endif
|
||||
"#@apply",
|
||||
"#@call-with-current-continuation",
|
||||
"apply",
|
||||
"call-with-current-continuation",
|
||||
|
||||
/* user visible ISYMS */
|
||||
/* other keywords */
|
||||
|
@ -178,7 +178,6 @@ scm_scmval_print (svalue, stream, format, deref_ref, recurse, pretty)
|
|||
break;
|
||||
case 1:
|
||||
/* gloc */
|
||||
fputs_filtered ("#@", stream);
|
||||
svalue = SCM_CAR (svalue - 1);
|
||||
goto taloop;
|
||||
default:
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue