artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

scaffold: Resurrect mini-mes.

Browse source 
* src/mini-mes.c: Resurrect.
This commit is contained in:
Jan Nieuwenhuizen 2018-10-19 20:20:00 +02:00
parent d73df09ab6
commit 5826f75c7b
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
scaffold/mini-mes.c
View file

@ -456,6 +456,14 @@ length (SCM x)
SCM apply (SCM, SCM, SCM); 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 SCM
error (SCM key, SCM x) error (SCM key, SCM x)
{ {
@ -638,14 +646,6 @@ assq (SCM x, SCM a)
return a != cell_nil ? CAR (a) : cell_f; 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 SCM
set_car_x (SCM x, SCM e) set_car_x (SCM x, SCM e)
{ {