Fix values.
[mes.git] / tests / record.test
old mode 100644 (file)
new mode 100755 (executable)
index 7b088c1..060aab5
@@ -1,3 +1,10 @@
+#! /bin/sh
+# -*-scheme-*-
+echo ' ()' | cat $($(dirname $0)/../scripts/include.mes $0) $0 /dev/stdin | $(dirname $0)/../scripts/mes "$@"
+#paredit:||
+exit $?
+!#
+
 ;;; -*-scheme-*-
 
 ;;; Mes --- Maxwell Equations of Software
 ;;; -*-scheme-*-
 
 ;;; Mes --- Maxwell Equations of Software
@@ -18,6 +25,7 @@
 ;;; 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 base-0))
 (mes-use-module (mes base))
 (mes-use-module (mes quasiquote))
 (mes-use-module (mes let))
 (mes-use-module (mes base))
 (mes-use-module (mes quasiquote))
 (mes-use-module (mes let))
@@ -27,6 +35,7 @@
 (mes-use-module (mes record-0))
 (mes-use-module (mes record))
 (mes-use-module (srfi srfi-9))
 (mes-use-module (mes record-0))
 (mes-use-module (mes record))
 (mes-use-module (srfi srfi-9))
+
 (mes-use-module (mes test))
 
 (when guile?
 (mes-use-module (mes test))
 
 (when guile?