mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 07:30:32 +02:00
Code Activity

* error.c, eval.c, load.c, stackchk.c: use scm_error not lgh_error.

Browse source 
* __scm.h (lgh_error): removed, lgh shouldn't be in libguile.

* stime.c, stime.h: use SCM_P method.
This commit is contained in:
Gary Houston 1996-10-12 21:59:40 +00:00
parent 9518bec3de
commit 01f61221f4
8 changed files with 30 additions and 75 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/eval.c
View file

@ -243,7 +243,7 @@ scm_lookupcar (vloc, genv)
var = SCM_CAR (var);
errout:
/* scm_everr (vloc, genv,...) */
lgh_error (scm_misc_error_key,
scm_error (scm_misc_error_key,
NULL,
SCM_NULLP (env)
? "Unbound variable: %S"
@ -436,7 +436,7 @@ scm_m_vref (xorig, env)
if (SCM_NIMP(x) && UDSCM_VARIABLEP (SCM_CAR (x)))
{
/* scm_everr (SCM_UNDEFINED, env,..., "global variable reference") */
lgh_error (scm_misc_error_key,
scm_error (scm_misc_error_key,
NULL,
"Bad variable: %S",
scm_listify (SCM_CAR (SCM_CDR (x)), SCM_UNDEFINED),
@ -1858,7 +1858,7 @@ dispatch:
proc = x;
badfun:
/* scm_everr (x, env,...) */
lgh_error (scm_misc_error_key,
scm_error (scm_misc_error_key,
NULL,
"Wrong type to apply: %S",
scm_listify (proc, SCM_UNDEFINED),