--- a/Idea	Fri Jan 14 09:55:24 2000 +0900
+++ b/Idea	Fri Jan 14 12:10:42 2000 +0900
@@ -1070,3 +1070,17 @@
 コピーができれば、environment/return の組は動くわけだから、
 それへの参照と切替えがあっても良いよね。
 
+Fri Jan 14 12:03:35 JST 2000
+
+Libretto のkeyboardが壊れた... control key が効かない...
+
+printf の参照の問題は解決しました。list2 がlocalなheap
+に割り当てているのがいけなかったね。
+
+return の処理は、goto 文で処理するより、environment に
+returnto する方が良くはないか?
+
+environment は実は送り先でそれなりの準備が必要。
+new-environment() みたいなlibrary があれば、thread にできる。
+
+join は?

--- a/test/tmp7.c	Fri Jan 14 09:55:24 2000 +0900
+++ b/test/tmp7.c	Fri Jan 14 12:10:42 2000 +0900
@@ -14,13 +14,20 @@
 
 struct aa { int a[100]; } aaa,bbb;
 
+void
+main2(struct aa a1)
+{
+	printf("main2 %d\n",a1.a[99]);
+}
+
+struct aa 
 main1(struct aa a1)
 {
     if (a1.a[0]) 
-	main1(a1);
+	main2(a1);
     else
-	main1(aaa);
-    return a1.a[10];
+	main2(aaa);
+    return a1;
 } 
 
 main(ac,av)
@@ -37,7 +44,7 @@
     r = q;
     printf("%d\n",r.b);
     aaa = bbb;
-    p = av[1];
+    p = av[0];
     if (!p) return;
     i = p[1];
     p = p+i;