scaffold: Resurrect mini-mes.
authorJan Nieuwenhuizen <janneke@gnu.org>
Fri, 19 Oct 2018 18:20:00 +0000 (20:20 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Fri, 19 Oct 2018 18:20:00 +0000 (20:20 +0200)
* src/mini-mes.c: Resurrect.

scaffold/mini-mes.c

index 18f8308f172b135928cc6372582b54a465c28e7d..9da6de983c5bda16856f2f70caccd218a4112c9c 100644 (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)
 {