From 613ce2b12add7a295be05dbca16edab5dd446bc5 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Fri, 19 Oct 2018 20:20:00 +0200
Subject: [PATCH] scaffold: Resurrect mini-mes.

* src/mini-mes.c: Resurrect.
---
 scaffold/mini-mes.c | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/scaffold/mini-mes.c b/scaffold/mini-mes.c
index 18f8308f..9da6de98 100644
--- a/scaffold/mini-mes.c
+++ b/scaffold/mini-mes.c
@@ -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)
 {