Updating: very very minorly

prelude/DATS/gmap000.dats

@@ -0,0 +1,64 @@
+(***********************************************************************)
+(*                                                                     *)
+(*                         Applied Type System                         *)
+(*                                                                     *)
+(***********************************************************************)
+
+(*
+** ATS/Xanadu - Unleashing the Potential of Types!
+** Copyright (C) 2024 Hongwei Xi, ATS Trustful Software, Inc.
+** All rights reserved
+**
+** ATS is free software;  you can  redistribute it and/or modify it under
+** the terms of  the GNU GENERAL PUBLIC LICENSE (GPL) as published by the
+** Free Software Foundation; either version 3, or (at  your  option)  any
+** later version.
+** 
+** ATS is distributed in the hope that it will be useful, but WITHOUT ANY
+** WARRANTY; without  even  the  implied  warranty  of MERCHANTABILITY or
+** FITNESS FOR A PARTICULAR PURPOSE.  See the  GNU General Public License
+** for more details.
+** 
+** You  should  have  received  a  copy of the GNU General Public License
+** along  with  ATS;  see the  file COPYING.  If not, please write to the
+** Free Software Foundation,  51 Franklin Street, Fifth Floor, Boston, MA
+** 02110-1301, USA.
+*)
+
+(* ****** ****** *)
+(* ****** ****** *)
+//
+(*
+Author: Hongwei Xi
+(*
+Sun 08 Sep 2024 12:39:45 PM EDT
+*)
+Authoremail: gmhwxiATgmailDOTcom
+*)
+//
+(* ****** ****** *)
+(* ****** ****** *)
+//
+#impltmp
+< xs:vt >
+< x0:vt >
+gmap_sep((*void*)) = ","
+#impltmp
+< xs:vt >
+< x0:vt >
+gseq_end((*void*)) = "}"
+#impltmp
+< xs:vt >
+< x0:vt >
+gseq_beg((*void*)) = "gmap{"
+//
+(* ****** ****** *)
+(* ****** ****** *)
+//
+(* ****** ****** *)
+(* ****** ****** *)
+//
+(* ****** ****** *)(* ****** ****** *)
+(* ****** ****** *)(* ****** ****** *)
+
+(* end of [ATS3/XANADU_prelude_DATS_gmap000.dats] *)

prelude/DATS/gseq000.dats

@@ -40,23 +40,23 @@ Authoremail: gmhwxiATgmailDOTcom
 (* ****** ****** *)
 //
 #impltmp
-< xs:t0 >
-< x0:t0 >
+< xs:vt >
+< x0:vt >
 gseq_sep((*void*)) = ","
 #impltmp
-< xs:t0 >
-< x0:t0 >
+< xs:vt >
+< x0:vt >
 gseq_end((*void*)) = ")"
 #impltmp
-< xs:t0 >
-< x0:t0 >
+< xs:vt >
+< x0:vt >
 gseq_beg((*void*)) = "gseq("
 //
 (* ****** ****** *)
 //
 #impltmp
-< xs:t0 >
-< x0:t0 >
+< xs:vt >
+< x0:vt >
 gseq_prlen((*void*)) = (-1)
 //
 (* ****** ****** *)