From 1c6ac2b9b6ce3a423a0ede25264c82a5761e1564 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sat, 9 Jul 2016 14:58:37 +0200
Subject: [PATCH] hack to print (current-module).

---
 mes.c   | 14 +++++++++++++-
 mes.mes |  2 ++
 2 files changed, 15 insertions(+), 1 deletion(-)

diff --git a/mes.c b/mes.c
index d6175f63..056c7fd8 100644
--- a/mes.c
+++ b/mes.c
@@ -82,6 +82,7 @@ scm scm_symbol_unquote = {ATOM, "unquote"};
 #if MACROS
 scm scm_macro = {ATOM, "*macro*"};
 #endif
+scm scm_symbol_current_module = {ATOM, "current-module"};
 
 // PRIMITIVES
 
@@ -278,6 +279,8 @@ apply_ (scm *fn, scm *x, scm *a)
 #endif
   if (atom_p (fn) != &scm_f)
     {
+      if (fn == &scm_symbol_current_module) // FIXME
+        return a;
       if (builtin_p (fn) == &scm_t)
         return call (fn, x);
       return apply (eval (fn,  a), x, a);
@@ -884,7 +887,8 @@ initial_environment ()
   //
   a = add_environment (a, "*macro*", &scm_nil);
   a = add_environment (a, "*dot*", &scm_dot);
-
+  a = add_environment (a, "current-module", &scm_symbol_current_module);
+  
   return a;
 }
 
@@ -905,6 +909,14 @@ define (scm *x, scm *a)
 scm *
 define_macro (scm *x, scm *a)
 {
+#if DEBUG
+  printf ("\nc:define_macro a=");
+  scm *aa =cons (&scm_macro,
+               cons (define_lambda (x, a),
+                     cdr (assoc (&scm_macro, a))));
+  display (aa);
+  puts ("");
+#endif
   return cons (&scm_macro,
                cons (define_lambda (x, a),
                      cdr (assoc (&scm_macro, a))));
diff --git a/mes.mes b/mes.mes
index 902a93ea..f839be90 100644
--- a/mes.mes
+++ b/mes.mes
@@ -92,6 +92,8 @@
   (cond
    ((atom fn)
     (cond
+     ((eq fn 'current-module) ;; FIXME
+      (c:apply current-module '() a)) 
      ((builtin fn)
       (call fn x))
      (#t (apply (eval fn a) x a))))