diff options
author | Gary Houston <ghouston@arglist.com> | 1996-10-12 21:59:40 +0000 |
---|---|---|
committer | Gary Houston <ghouston@arglist.com> | 1996-10-12 21:59:40 +0000 |
commit | 01f61221f4341a877ac648aaa6c0d9f5bb6a488c (patch) | |
tree | 4e8468560a65396ac4339bcf1783b3163852bd25 /libguile/eval.c | |
parent | 9518bec3de83ce1e3986fa28ee05373d29d9716f (diff) | |
download | guile-01f61221f4341a877ac648aaa6c0d9f5bb6a488c.tar.gz |
* error.c, eval.c, load.c, stackchk.c: use scm_error not lgh_error.
* __scm.h (lgh_error): removed, lgh shouldn't be in libguile.
* stime.c, stime.h: use SCM_P method.
Diffstat (limited to 'libguile/eval.c')
-rw-r--r-- | libguile/eval.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index 1570a4592..531a949ff 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -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), |