mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

* Eliminate another couple of calls to scm_wta.

Browse source
This commit is contained in:
Dirk Herrmann 2001-03-04 22:48:13 +00:00
parent b432fb4b99
commit 276dd6775c
11 changed files with 70 additions and 49 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/debug.c
View file

@ -446,8 +446,8 @@ SCM_DEFINE (scm_procedure_source, "procedure-source", 1, 0, 0,
built in procedures! */
return scm_procedure_property (proc, scm_sym_source);
default:
SCM_WTA(1,proc);
return SCM_BOOL_F;
SCM_WRONG_TYPE_ARG (1, proc);
/* not reached */
}
}
#undef FUNC_NAME
@ -467,8 +467,8 @@ SCM_DEFINE (scm_procedure_environment, "procedure-environment", 1, 0, 0,
#endif
return SCM_EOL;
default:
SCM_WTA(1,proc);
return SCM_BOOL_F;
SCM_WRONG_TYPE_ARG (1, proc);
/* not reached */
}
}
#undef FUNC_NAME