From 33d1d668a4916a36d5935b69aa3646e0f0dd0b7e Mon Sep 17 00:00:00 2001
From: ESL <esl@acm.org>
Date: Tue, 21 Mar 2023 13:57:28 -0400
Subject: [PATCH] ... s.c fix

---
 s.c | 48 ++++++++++++++++++++++++------------------------
 1 file changed, 24 insertions(+), 24 deletions(-)

diff --git a/s.c b/s.c
index 1b54e05..91f2244 100644
--- a/s.c
+++ b/s.c
@@ -3,14 +3,14 @@
 char *s_code[] = {
 
   0,
-  "&0{%2.1,.1G4,.2,.2G3,@(y5:%25sdmv)[22}@!(y6:floor/)",
+  "&0{%2.1,.1G4,.2,.2G3,@(y6:values)[22}@!(y6:floor/)",
 
   0,
-  "&0{%2.1,.1G6,.2,.2G5,@(y5:%25sdmv)[22}@!(y9:truncate/)",
+  "&0{%2.1,.1G6,.2,.2G5,@(y6:values)[22}@!(y9:truncate/)",
 
   0,
-  "&0{%!0.0,,#0.0,&1{%1.0u?{n]1}.0du?{.0a]1}${.2d,:0^[01},.1a,@(y8:list-c"
-  "at)[12}.!0.0^_1[11}@!(y7:%25append)",
+  "&0{%!0.0,,#0.0,&1{%1.0u?{n]1}.0du?{.0a]1}${.2d,:0^[01},.1aL6]1}.!0.0^_"
+  "1[11}@!(y7:%25append)",
 
   "append",
   "l7:y12:syntax-rules;n;l2:l1:y1:_;;l2:y5:quote;n;;;l2:l2:y1:_;y1:x;;y1:"
@@ -19,16 +19,16 @@ char *s_code[] = {
   "2:y1:_;y7:%25append;;",
 
   0,
-  "&0{%!2.0u?{.2,.2,@(y4:meme)[32}.0a,.3,.3,,#0.0,&1{%3.1p?{${.3a,.3,.6[0"
-  "2}?{.1]3}.2,.2d,.2,:0^[33}f]3}.!0.0^_1[33}@!(y7:%25member)",
+  "&0{%!2.0u?{.2,.2A2]3}.0a,.3,.3,,#0.0,&1{%3.1p?{${.3a,.3,.6[02}?{.1]3}."
+  "2,.2d,.2,:0^[33}f]3}.!0.0^_1[33}@!(y7:%25member)",
 
   "member",
   "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:v;y1:l;;l3:y4:meme;y1:v;y1:l;;;l2:"
   "py1:_;y4:args;;py7:%25member;y4:args;;;l2:y1:_;y7:%25member;;",
 
   0,
-  "&0{%!2.0u?{.2,.2,@(y4:asse)[32}.0a,.3,.3,,#0.0,&1{%3.1p?{${.3aa,.3,.6["
-  "02}?{.1a]3}.2,.2d,.2,:0^[33}f]3}.!0.0^_1[33}@!(y6:%25assoc)",
+  "&0{%!2.0u?{.2,.2A5]3}.0a,.3,.3,,#0.0,&1{%3.1p?{${.3aa,.3,.6[02}?{.1a]3"
+  "}.2,.2d,.2,:0^[33}f]3}.!0.0^_1[33}@!(y6:%25assoc)",
 
   "assoc",
   "l5:y12:syntax-rules;n;l2:l3:y1:_;y1:v;y2:al;;l3:y4:asse;y1:v;y2:al;;;l"
@@ -40,7 +40,7 @@ char *s_code[] = {
   "rules;;;l2:y1:_;y19:%25residual-list-copy;;",
 
   0,
-  "&0{%1n,.1L6]1}@!(y19:%25residual-list-copy)",
+  "&0{%1n,.1,@(y5:%25lcat)[12}@!(y19:%25residual-list-copy)",
 
   0,
   "&0{%!1.0,.2,,#0.0,&1{%2.1u?{.0]2}${.3d,.4a,:0^[02},.1c]2}.!0.0^_1[22}@"
@@ -62,8 +62,8 @@ char *s_code[] = {
 
   0,
   "&0{%3.2,.2,.2,@(y15:subvector->list)[33}%x,&0{%2.0V3,.2,.2,@(y15:subve"
-  "ctor->list)[23}%x,&0{%1.0,@(y14:%25vector->list1)[11}%x,&3{|10|21|32%%"
-  "}@!(y13:%25vector->list)",
+  "ctor->list)[23}%x,&0{%1.0X0]1}%x,&3{|10|21|32%%}@!(y13:%25vector->list"
+  ")",
 
   "vector->list",
   "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y14:%25vector->list1;y1:x;;;"
@@ -138,8 +138,8 @@ char *s_code[] = {
 
   0,
   "&0{%3.2,.2,.2,@(y15:substring->list)[33}%x,&0{%2.0S3,.2,.2,@(y15:subst"
-  "ring->list)[23}%x,&0{%1.0,@(y14:%25string->list1)[11}%x,&3{|10|21|32%%"
-  "}@!(y13:%25string->list)",
+  "ring->list)[23}%x,&0{%1.0X2]1}%x,&3{|10|21|32%%}@!(y13:%25string->list"
+  ")",
 
   "string->list",
   "l5:y12:syntax-rules;n;l2:l2:y1:_;y1:x;;l2:y14:%25string->list1;y1:x;;;"
@@ -231,9 +231,9 @@ char *s_code[] = {
   0,
   "&0{%!2.0u?{.2,.2,@(y5:%25map1)[32}.0du?{.0a,.3,.3,@(y5:%25map2)[33}n,."
   "1,.4c,,#0.0,.5,&2{%2${.2,,#0.0,&1{%1.0u,.0?{.0]2}.1ap?{.1d,:0^[21}f]2}"
-  ".!0.0^_1[01}?{.1,${${.5,@(y13:%25residual-car),@(y5:%25map1)[02},:0,@("
-  "y13:apply-to-list)[02}c,${.3,@(y13:%25residual-cdr),@(y5:%25map1)[02},"
-  ":1^[22}.1A9]2}.!0.0^_1[32}@!(y4:%25map)",
+  ".!0.0^_1[01}?{.1,${${.5,@(y3:car),@(y5:%25map1)[02},:0,@(y13:apply-to-"
+  "list)[02}c,${.3,@(y3:cdr),@(y5:%25map1)[02},:1^[22}.1A9]2}.!0.0^_1[32}"
+  "@!(y4:%25map)",
 
   "map",
   "l6:y12:syntax-rules;n;l2:l3:y1:_;y1:p;y1:l;;l3:y5:%25map1;y1:p;y1:l;;;"
@@ -251,9 +251,9 @@ char *s_code[] = {
   0,
   "&0{%!2.0u?{.2,.2,@(y10:%25for-each1)[32}.0du?{.0a,.3,.3,@(y10:%25for-e"
   "ach2)[33}.0,.3c,,#0.3,.1,&2{%1${.2,,#0.0,&1{%1.0u,.0?{.0]2}.1ap?{.1d,:"
-  "0^[21}f]2}.!0.0^_1[01}?{${${.4,@(y13:%25residual-car),@(y5:%25map1)[02"
-  "},:1,@(y13:apply-to-list)[02}${.2,@(y13:%25residual-cdr),@(y5:%25map1)"
-  "[02},:0^[11}]1}.!0.0^_1[31}@!(y9:%25for-each)",
+  "0^[21}f]2}.!0.0^_1[01}?{${${.4,@(y3:car),@(y5:%25map1)[02},:1,@(y13:ap"
+  "ply-to-list)[02}${.2,@(y3:cdr),@(y5:%25map1)[02},:0^[11}]1}.!0.0^_1[31"
+  "}@!(y9:%25for-each)",
 
   "for-each",
   "l6:y12:syntax-rules;n;l2:l3:y1:_;y1:p;y1:l;;l3:y10:%25for-each1;y1:p;y"
@@ -292,9 +292,9 @@ char *s_code[] = {
   "&0{%1.0P00?{.0P60}.0P01?{.0P61]1}]1}@!(y10:close-port)",
 
   0,
-  "&0{%2.0,&1{%!0${:0,@(y10:close-port)[01}.0,@(y5:%25sdmv),@(y13:apply-t"
-  "o-list)[12},.1,.3,&2{%0:1,:0[01},@(y5:%25cwmv)[22}@!(y14:call-with-por"
-  "t)",
+  "&0{%2.0,&1{%!0${:0,@(y10:close-port)[01}.0,@(y6:values),@(y13:apply-to"
+  "-list)[12},.1,.3,&2{%0:1,:0[01},@(y16:call-with-values)[22}@!(y14:call"
+  "-with-port)",
 
   0,
   "&0{%2.1,.1P40,@(y14:call-with-port)[22}@!(y20:call-with-input-file)",
@@ -314,8 +314,8 @@ char *s_code[] = {
   "r;y4:args;;;;;;;",
 
   0,
-  "&0{%!0.0,,#0.0,&1{%1.0u?{n]1}.0du?{.0a]1}${.2d,:0^[01},.1a,@(y8:list-c"
-  "at)[12}.!0.0^_1[11}@!(y16:%25residual-append)",
+  "&0{%!0.0,,#0.0,&1{%1.0u?{n]1}.0du?{.0a]1}${.2d,:0^[01},.1aL6]1}.!0.0^_"
+  "1[11}@!(y16:%25residual-append)",
 
   0, 0
 };