Skip to content

Commit

Permalink
Updating: very very minorly
Browse files Browse the repository at this point in the history
  • Loading branch information
githwxi committed Sep 1, 2024
1 parent 673a8aa commit 4d9c5f2
Show file tree
Hide file tree
Showing 26 changed files with 199 additions and 204 deletions.
33 changes: 8 additions & 25 deletions srcgen1/xatslib/libcats/SATS/synoug0.sats
Original file line number Diff line number Diff line change
Expand Up @@ -162,9 +162,8 @@ gs_prout_n10
(* ****** ****** *)
//
#symload prout with gs_prout_n1
(*
//
#symload prouts with gs_prout_n1
*)
#symload prouts with gs_prout_n2
#symload prouts with gs_prout_n3
#symload prouts with gs_prout_n4
Expand Down Expand Up @@ -291,9 +290,8 @@ gs_prout0_n10
(* ****** ****** *)
//
#symload prout0 with gs_prout0_n1
(*
//
#symload prout0s with gs_prout0_n1
*)
#symload prout0s with gs_prout0_n2
#symload prout0s with gs_prout0_n3
#symload prout0s with gs_prout0_n4
Expand Down Expand Up @@ -420,9 +418,8 @@ gs_prout1_n10
(* ****** ****** *)
//
#symload prout1 with gs_prout1_n1
(*
//
#symload prout1s with gs_prout1_n1
*)
#symload prout1s with gs_prout1_n2
#symload prout1s with gs_prout1_n3
#symload prout1s with gs_prout1_n4
Expand Down Expand Up @@ -551,9 +548,8 @@ gs_prerr_n10
(* ****** ****** *)
//
#symload prerr with gs_prerr_n1
(*
//
#symload prerrs with gs_prerr_n1
*)
#symload prerrs with gs_prerr_n2
#symload prerrs with gs_prerr_n3
#symload prerrs with gs_prerr_n4
Expand Down Expand Up @@ -682,9 +678,8 @@ gs_prerr0_n10
(* ****** ****** *)
//
#symload prerr0 with gs_prerr0_n1
(*
//
#symload prerr0s with gs_prerr0_n1
*)
#symload prerr0s with gs_prerr0_n2
#symload prerr0s with gs_prerr0_n3
#symload prerr0s with gs_prerr0_n4
Expand Down Expand Up @@ -811,9 +806,8 @@ gs_prerr1_n10
(* ****** ****** *)
//
#symload prerr1 with gs_prerr1_n1
(*
#symload prerr1 with gs_prerr1_n1
*)
//
#symload prerr1s with gs_prerr1_n1
#symload prerr1s with gs_prerr1_n2
#symload prerr1s with gs_prerr1_n3
#symload prerr1s with gs_prerr1_n4
Expand Down Expand Up @@ -947,9 +941,7 @@ gs_proutln_n10
#symload proutln with gs_proutln_n1
//
#symload proutsln with gs_proutln_n0
(*
#symload proutsln with gs_proutln_n1
*)
#symload proutsln with gs_proutln_n2
#symload proutsln with gs_proutln_n3
#symload proutsln with gs_proutln_n4
Expand Down Expand Up @@ -1077,9 +1069,7 @@ gs_prout0ln_n10
#symload prout0ln with gs_prout0ln_n1
//
#symload prout0sln with gs_prout0ln_n0
(*
#symload prout0sln with gs_prout0ln_n1
*)
#symload prout0sln with gs_prout0ln_n2
#symload prout0sln with gs_prout0ln_n3
#symload prout0sln with gs_prout0ln_n4
Expand Down Expand Up @@ -1206,10 +1196,9 @@ gs_prout1ln_n10
(* ****** ****** *)
//
#symload prout1ln with gs_prout1ln_n1
//
#symload prout1sln with gs_prout1ln_n0
(*
#symload prout1sln with gs_prout1ln_n1
*)
#symload prout1sln with gs_prout1ln_n2
#symload prout1sln with gs_prout1ln_n3
#symload prout1sln with gs_prout1ln_n4
Expand Down Expand Up @@ -1342,9 +1331,7 @@ gs_prerrln_n10
//
#symload prerrln with gs_prerrln_n1
#symload prerrsln with gs_prerrln_n0
(*
#symload prerrsln with gs_prerrln_n1
*)
#symload prerrsln with gs_prerrln_n2
#symload prerrsln with gs_prerrln_n3
#symload prerrsln with gs_prerrln_n4
Expand Down Expand Up @@ -1471,9 +1458,7 @@ gs_prerr0ln_n10
//
#symload prerr0ln with gs_prerr0ln_n1
#symload prerr0sln with gs_prerr0ln_n0
(*
#symload prerr0sln with gs_prerr0ln_n1
*)
#symload prerr0sln with gs_prerr0ln_n2
#symload prerr0sln with gs_prerr0ln_n3
#symload prerr0sln with gs_prerr0ln_n4
Expand Down Expand Up @@ -1601,9 +1586,7 @@ gs_prerr1ln_n10
//
#symload prerr1ln with gs_prerr1ln_n1
#symload prerr1sln with gs_prerr1ln_n0
(*
#symload prerr1sln with gs_prerr1ln_n1
*)
#symload prerr1sln with gs_prerr1ln_n2
#symload prerr1sln with gs_prerr1ln_n3
#symload prerr1sln with gs_prerr1ln_n4
Expand Down
36 changes: 24 additions & 12 deletions srcgen2/DATS/trans34_myenv0.dats
Original file line number Diff line number Diff line change
Expand Up @@ -267,7 +267,7 @@ loop
{
//
val () =
prerrsln
prerr1sln
("linstk_lamvars:loop: stk0 = ", stk0)
//
}(*where*)
Expand Down Expand Up @@ -334,7 +334,7 @@ loop
{
//
val () =
prerrsln
prerr1sln
("linstk_letvars:loop: stk0 = ", stk0)
//
}(*where*)
Expand Down Expand Up @@ -647,7 +647,7 @@ val
end where
{
val () =
prerrsln
prerr1sln
("linstk_popift0:loop: stk0 = ", stk0)
}(*where*) // end of [linstk_popift0(stk)]
//
Expand Down Expand Up @@ -716,7 +716,7 @@ val
end where
{
val () =
prerrsln
prerr1sln
("linstk_popift0:loop: stk0 = ", stk0)
} (*where*) // end of [linstk_popcas0(stk)]
//
Expand Down Expand Up @@ -795,7 +795,9 @@ end where
{
//
val () =
prerrsln("linstk_getlam0: stk0 = ", stk0)
(
prerr1sln
("linstk_getlam0: stk0 = ", stk0) )
//
}(*where*) // end of [linstk_getlam0(stk)]
//
Expand Down Expand Up @@ -873,7 +875,9 @@ end where
{
//
val () =
prerrsln("linstk_getlet0: stk0 = ", stk0)
(
prerr1sln
("linstk_getlet0: stk0 = ", stk0) )
//
}(*where*) // end of [linstk_getlet0(stk)]
//
Expand Down Expand Up @@ -951,7 +955,9 @@ end where
{
//
val () =
prerrsln("linstk_getift0: stk0 = ", stk0)
(
prerr1sln
("linstk_getift0: stk0 = ", stk0) )
//
}(*where*) // end of [linstk_getlet0(stk)]
//
Expand Down Expand Up @@ -1029,7 +1035,9 @@ end where
{
//
val () =
prerrsln("linstk_getcas0: stk0 = ", stk0)
(
prerr1sln
("linstk_getcas0: stk0 = ", stk0) )
//
}(*where*) // end of [linstk_getcas0(stk)]
//
Expand Down Expand Up @@ -1851,7 +1859,8 @@ end(*let*)//end-of-[f0_annot(env0,dpat)]
(* ****** ****** *)
//
val () =
prerrsln("tr34env_insert_dpat: dpat = ", dpat)
(
prerrsln("tr34env_insert_dpat: dpat = ", dpat))
//
(* ****** ****** *)
//
Expand All @@ -1875,7 +1884,8 @@ tr34env_insert_dpat(env0, dpat)
{
//
val () =
prerrsln("tr34env_insert_dgpt: dgpt = ", dgpt)
(
prerrsln("tr34env_insert_dgpt: dgpt = ", dgpt))
//
}(*where*)//end-of-[tr34env_insert_dgpt(env0,dgpt)]
//
Expand All @@ -1896,7 +1906,8 @@ tr34env_insert_dpatlst(env0, d4ps)
{
//
val () =
prerrsln("tr34env_insert_farg: farg = ", farg)
(
prerrsln("tr34env_insert_farg: farg = ", farg))
//
}(*where*)//end-of-[tr34env_insert_farg(env0,farg)]
//
Expand Down Expand Up @@ -1987,7 +1998,8 @@ end(*let*) // end-of-[list_cons(...)]
)(*case+*) // end-of-[auxmain(env0,dvts)]
//
val () =
prerrsln("tr34env_d2vtck_dvts: dvts = ", dvts)
(
prerrsln("tr34env_d2vtck_dvts: dvts = ", dvts))
//
}(*where*)//end of [tr34env_d2vtck_dvts(env0,dvts)]

Expand Down
2 changes: 1 addition & 1 deletion srcgen2/xats2js/srcgen1/DATS/intrep0.dats
Original file line number Diff line number Diff line change
Expand Up @@ -663,7 +663,7 @@ I0PARSED
//
(*
val () =
prerrln
prerrsln
("i0parsed_make_args:nerror=",nerror)
*)
//
Expand Down
2 changes: 1 addition & 1 deletion srcgen2/xats2js/srcgen1/DATS/intrep1.dats
Original file line number Diff line number Diff line change
Expand Up @@ -758,7 +758,7 @@ I1PARSED
//
(*
val () =
prerrln
prerrsln
("i1parsed_make_args:nerror=",nerror)
*)
//
Expand Down
4 changes: 2 additions & 2 deletions srcgen2/xats2js/srcgen1/DATS/intrep1_utils0.dats
Original file line number Diff line number Diff line change
Expand Up @@ -168,7 +168,7 @@ case+ fjas of
//
(*
val () =
prerrln("t1imp_i1cmpq: timp = ", timp)
prerrsln("t1imp_i1cmpq: timp = ", timp)
*)
//
}(*where*)//end-of-[t1imp_i1cmpq( timp )]
Expand Down Expand Up @@ -219,7 +219,7 @@ idcl.node() of
//
(*
val () =
prerrln("t1imp_i1dclq: timp = ", timp)
prerrsln("t1imp_i1dclq: timp = ", timp)
*)
//
}(*where*)//end-of-[t1imp_i1dclq( timp )]
Expand Down
2 changes: 1 addition & 1 deletion srcgen2/xats2js/srcgen1/DATS/js1emit_decl00.dats
Original file line number Diff line number Diff line change
Expand Up @@ -157,7 +157,7 @@ let
(*
//
val () =
prerrln
prerrsln
("js1emit_i1dcl: dcl0 = ", dcl0))
//
*)
Expand Down
12 changes: 6 additions & 6 deletions srcgen2/xats2js/srcgen1/DATS/js1emit_dynexp.dats
Original file line number Diff line number Diff line change
Expand Up @@ -775,7 +775,7 @@ let
//
(*
val () =
prerrln
prerrsln
("i1valjs1: ival = ", ival)
*)
//
Expand Down Expand Up @@ -970,7 +970,7 @@ let
//
(*
val () =
prerrln
prerrsln
("i1insjs1: iins = ", iins)
*)
//
Expand Down Expand Up @@ -1105,7 +1105,7 @@ let
//
(*
val () =
prerrln
prerrsln
("i1cmpjs1: icmp = ", icmp)
*)
//
Expand Down Expand Up @@ -1400,13 +1400,13 @@ end where
//
(*
val () =
( prerrln
( prerrsln
("f0_i1tnmvalcls: itnm = ", itnm))
val () =
( prerrln
( prerrsln
("f0_i1tnmvalcls: ival = ", ival))
val () =
( prerrln
( prerrsln
("f0_i1tnmvalcls: icl0 = ", icl0))
*)
//
Expand Down
Loading

0 comments on commit 4d9c5f2

Please sign in to comment.