core: Expose command line.

[mes.git] / module / mes / base.mes

diff --git a/module/mes/base.mes b/module/mes/base.mes
index 83994495e162e354c171c1b77d670662c6d16944..f3f1ce00ee62ff70f40d0c49c88d2ccde0aba554 100644 (file)
--- a/module/mes/base.mes
+++ b/module/mes/base.mes
@@ -1,7 +1,7 @@
 ;;; -*-scheme-*-
 
 ;;; Mes --- Maxwell Equations of Software
-;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
+;;; Copyright © 2016,2017 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;
 ;;; This file is part of Mes.
 ;;;
@@ -42,6 +42,8 @@
 
 (define (identity x) x)
 
+(define (command-line) argv)
+
 (define-macro (or . x)
   (if (null? x) #f
       (if (null? (cdr x)) (car x)