mes: Iterative recursive macro expand.
[mes.git] / scripts / repl.mes
index d086e58fd85106d902d7028fb9d15fe69608d4e0..56f4d38514c1b0369b5eb3fabeca9251b8faa184 100755 (executable)
@@ -10,7 +10,7 @@ exit $?
 !#
 
 ;;; Mes --- Maxwell Equations of Software
 !#
 
 ;;; Mes --- Maxwell Equations of Software
-;;; Copyright © 2016,2017 Jan Nieuwenhuizen <janneke@gnu.org>
+;;; Copyright © 2016,2017,2018 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;
 ;;; This file is part of Mes.
 ;;;
 ;;;
 ;;; This file is part of Mes.
 ;;;
@@ -27,6 +27,10 @@ exit $?
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with Mes.  If not, see <http://www.gnu.org/licenses/>.
 
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with Mes.  If not, see <http://www.gnu.org/licenses/>.
 
+(mes-use-module (mes repl))
+(mes-use-module (mes syntax))
+(primitive-load 0)
+
 (let* ((files (cdr (command-line)))
        (file (if (pair? files) (car files)))
        (file (if (and (equal? file "--") (pair? files) (pair? (cdr files))) (cadr files) file)))
 (let* ((files (cdr (command-line)))
        (file (if (pair? files) (car files)))
        (file (if (and (equal? file "--") (pair? files) (pair? (cdr files))) (cadr files) file)))
@@ -37,9 +41,6 @@ exit $?
            (format (current-error-port) "mescc.mes (mes) ~a\n" %version)
            (exit 0))))
 
            (format (current-error-port) "mescc.mes (mes) ~a\n" %version)
            (exit 0))))
 
-;;(mes-use-module (mes scm))
-(mes-use-module (mes syntax))
-(mes-use-module (mes repl))
-
 (repl)
 ()
 (repl)
 ()
+