scripts/repl.mes

   1 #! /bin/sh
   2 # -*-scheme-*-
   3 cat $($(dirname $0)/include.mes $0) $0 /dev/stdin | $(dirname $0)/mes "$@"
   4 #paredit:|
   5 exit $?
   6 !#
   7
   8 ;;; Mes --- Maxwell Equations of Software
   9 ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
  10 ;;;
  11 ;;; repl.mes: This file is part of Mes.
  12 ;;;
  13 ;;; Mes is free software; you can redistribute it and/or modify it
  14 ;;; under the terms of the GNU General Public License as published by
  15 ;;; the Free Software Foundation; either version 3 of the License, or (at
  16 ;;; your option) any later version.
  17 ;;;
  18 ;;; Mes is distributed in the hope that it will be useful, but
  19 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  20 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21 ;;; GNU General Public License for more details.
  22 ;;;
  23 ;;; You should have received a copy of the GNU General Public License
  24 ;;; along with Mes.  If not, see <http://www.gnu.org/licenses/>.
  25
  26 (mes-use-module (mes base-0))
  27 (mes-use-module (mes base))
  28 (mes-use-module (mes quasiquote))
  29 (mes-use-module (mes let))
  30 (mes-use-module (mes scm))
  31 (mes-use-module (srfi srfi-0))
  32 (mes-use-module (mes psyntax-0))
  33 (mes-use-module (mes psyntax-pp))
  34 (mes-use-module (mes psyntax-1))
  35 (mes-use-module (mes match))
  36 (mes-use-module (mes repl))
  37
  38 (repl)
  39 ()