scaffold: Resurrect mini-mes.

* src/mini-mes.c: Resurrect.
This commit is contained in:
Jan Nieuwenhuizen 2018-10-19 20:20:00 +02:00
parent 75b2590017
commit 613ce2b12a
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 8 additions and 8 deletions

View File

@ -456,6 +456,14 @@ length (SCM x)
SCM apply (SCM, SCM, SCM);
SCM
assq_ref_env (SCM x, SCM a)
{
x = assq (x, a);
if (x == cell_f) return cell_undefined;
return CDR (x);
}
SCM
error (SCM key, SCM x)
{
@ -638,14 +646,6 @@ assq (SCM x, SCM a)
return a != cell_nil ? CAR (a) : cell_f;
}
SCM
assq_ref_env (SCM x, SCM a)
{
x = assq (x, a);
if (x == cell_f) return cell_undefined;
return CDR (x);
}
SCM
set_car_x (SCM x, SCM e)
{