define.c

   1 /* -*-comment-start: "//";comment-end:""-*-
   2  * Mes --- Maxwell Equations of Software
   3  * Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
   4  *
   5  * This file is part of Mes.
   6  *
   7  * Mes is free software; you can redistribute it and/or modify it
   8  * under the terms of the GNU General Public License as published by
   9  * the Free Software Foundation; either version 3 of the License, or (at
  10  * your option) any later version.
  11  *
  12  * Mes is distributed in the hope that it will be useful, but
  13  * WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  * GNU General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU General Public License
  18  * along with Mes.  If not, see <http://www.gnu.org/licenses/>.
  19  */
  20
  21 #if !BOOT
  22 SCM
  23 define_env (SCM e, SCM a)
  24 {
  25   return vm_call (vm_define_env, e, cell_undefined, a);
  26 }
  27
  28 SCM
  29 vm_define_env ()
  30 {
  31   SCM x;
  32   r2 = cadr (r1);
  33   if (TYPE (r2) != PAIR)
  34     x = eval_env (caddr (r1), cons (cons (cadr (r1), cadr (r1)), r0));
  35   else {
  36     r2 = car (r2);
  37     SCM p = pairlis (cadr (r1), cadr (r1), r0);
  38     x = eval_env (make_lambda (cdadr (r1), cddr (r1)), p);
  39   }
  40   if (eq_p (car (r1), cell_symbol_define_macro) == cell_t)
  41     x = make_macro (r2, x);
  42
  43   SCM entry = cons (r2, x);
  44   SCM aa = cons (entry, cell_nil);
  45   set_cdr_x (aa, cdr (r0));
  46   set_cdr_x (r0, aa);
  47   SCM cl = assq (cell_closure, r0);
  48   set_cdr_x (cl, aa);
  49   return entry;
  50 }
  51 #else // BOOT
  52 SCM define_env (SCM r1, SCM a){}
  53 SCM vm_define_env (SCM r1, SCM a){}
  54 #endif
  55
  56 SCM
  57 define_macro (SCM r1, SCM a)
  58 {
  59 }