Memory corrections

Wodan58 · Sep 19, 2023 · 7948aeb · 7948aeb
1 parent b3609fe
commit 7948aeb
Show file tree

Hide file tree

Showing 230 changed files with 523 additions and 548 deletions.
diff --git a/.gitignore b/.gitignore
@@ -3,7 +3,6 @@ CMakeCache.txt
 CMakeFiles
 Makefile
 cmake_install.cmake
-joy.exe
 *.o
 joy.*
 builtin.*

diff --git a/src/of_at.h b/src/of_at.h
@@ -1,7 +1,7 @@
 /*
-    module  : %M%
-    version : %I%
-    date    : %G%
+    module  : of_at.h
+    version : 1.6
+    date    : 09/19/23
 */
 #ifndef OF_AT_H
 #define OF_AT_H

diff --git a/test/fib.joy b/test/fib.joy
diff --git a/test2/CMakeLists.txt b/test2/CMakeLists.txt
@@ -21,10 +21,10 @@ exe9(__symtabindex)
 exe9(__symtabmax)
 exe9(_help)
 exe9(abort)
-exe9(abs)
+exe9(plus)
 exe9(acos)
 exe9(add)
-exe9(all)
+exe9(all2)
 exe9(and)
 exe9(app1)
 exe9(app11)
@@ -101,7 +101,7 @@ exe9(frexp)
 exe9(fseek)
 exe9(ftell)
 exe9(fwrite)
-exe9(gc)
+exe9(gc2)
 exe9(genrec)
 exe9(geql)
 exe9(get)
@@ -202,7 +202,7 @@ exe9(strftime)
 exe9(string)
 exe9(strtod)
 exe9(strtol)
-exe9(sub)
+exe9(minus)
 exe9(succ)
 exe9(swap)
 exe9(swapd)

diff --git a/test2/__dump.joy b/test2/__dump.joy
@@ -1,6 +1,6 @@
 (*
     module  : __dump.joy
-    version : 1.2
-    date    : 08/20/22
+    version : 1.3
+    date    : 09/19/23
 *)
 __dump [] equal.
diff --git a/test2/__html_manual.joy b/test2/__html_manual.joy
@@ -1,6 +1,6 @@
 (*
     module  : __html_manual.joy
-    version : 1.3
-    date    : 08/20/22
+    version : 1.4
+    date    : 09/19/23
 *)
 __html_manual.
diff --git a/test2/__latex_manual.joy b/test2/__latex_manual.joy
@@ -1,6 +1,6 @@
 (*
     module  : __latex_manual.joy
-    version : 1.3
-    date    : 08/20/22
+    version : 1.4
+    date    : 09/19/23
 *)
 __latex_manual.
diff --git a/test2/__manual_list.joy b/test2/__manual_list.joy
@@ -1,6 +1,6 @@
 (*
     module  : __manual_list.joy
-    version : 1.3
-    date    : 08/20/22
+    version : 1.4
+    date    : 09/19/23
 *)
 __manual_list.
diff --git a/test2/__memoryindex.joy b/test2/__memoryindex.joy
@@ -1,7 +1,7 @@
 (*
     module  : __memoryindex.joy
-    version : 1.4
-    date    : 08/26/23
+    version : 1.5
+    date    : 09/19/23
 *)
 0 1 2 3 4 5 6 7 8 9 10
 __memoryindex.
diff --git a/test2/__memorymax.joy b/test2/__memorymax.joy
@@ -1,7 +1,7 @@
 (*
     module  : __memorymax.joy
-    version : 1.3
-    date    : 08/26/23
+    version : 1.4
+    date    : 09/19/23
 *)
 0 1 2 3 4 5 6 7 8 9 10
 __memorymax.
diff --git a/test2/__settracegc.joy b/test2/__settracegc.joy
@@ -1,6 +1,6 @@
 (*
     module  : __settracegc.joy
-    version : 1.3
-    date    : 08/20/22
+    version : 1.4
+    date    : 09/19/23
 *)
 1 __settracegc.
diff --git a/test2/__symtabindex.joy b/test2/__symtabindex.joy
@@ -1,6 +1,6 @@
 (*
     module  : __symtabindex.joy
-    version : 1.4
-    date    : 08/26/23
+    version : 1.5
+    date    : 09/19/23
 *)
 __symtabindex.
diff --git a/test2/__symtabmax.joy b/test2/__symtabmax.joy
@@ -1,6 +1,6 @@
 (*
     module  : __symtabmax.joy
-    version : 1.3
-    date    : 08/26/23
+    version : 1.4
+    date    : 09/19/23
 *)
 __symtabmax.
diff --git a/test2/_help.joy b/test2/_help.joy
@@ -1,6 +1,6 @@
 (*
     module  : _help.joy
-    version : 1.2
-    date    : 08/20/22
+    version : 1.3
+    date    : 09/19/23
 *)
 _help.
diff --git a/test2/abort.joy b/test2/abort.joy
@@ -1,6 +1,6 @@
 (*
     module  : abort.joy
-    version : 1.2
-    date    : 08/20/22
+    version : 1.3
+    date    : 09/19/23
 *)
 abort.
diff --git a/test2/abs.joy b/test2/abs.joy
@@ -1,7 +1,7 @@
 (*
     module  : abs.joy
-    version : 1.2
-    date    : 08/20/22
+    version : 1.3
+    date    : 09/19/23
 *)
 -1 abs 1 =.
 -1.1 abs 1.1 =.
diff --git a/test2/acos.joy b/test2/acos.joy
@@ -1,6 +1,6 @@
 (*
     module  : acos.joy
-    version : 1.2
-    date    : 08/20/22
+    version : 1.3
+    date    : 09/19/23
 *)
 0.1 acos 'g 0 6 formatf strtod 1.47063 =.
diff --git a/test2/all.joy → test2/all2.joy b/test2/all.joy → test2/all2.joy
@@ -1,7 +1,7 @@
 (*
-    module  : all.joy
-    version : 1.3
-    date    : 05/23/23
+    module  : all2.joy
+    version : 1.5
+    date    : 09/19/23
 *)
 [1 2 3] [2 <] all false =.
 [1 2 3] [4 <] all.
@@ -15,5 +15,5 @@
 {} [2 <] all.
 
 [1 2 3] [] all false =.
-"test" [] all false =.
+"test"  [] all false =.
 {1 2 3} [] all false =.
diff --git a/test2/and.joy b/test2/and.joy
@@ -1,7 +1,7 @@
 (*
     module  : and.joy
-    version : 1.2
-    date    : 08/20/22
+    version : 1.3
+    date    : 09/19/23
 *)
 false false and false =.
 false true and false =.

diff --git a/test2/app1.joy b/test2/app1.joy
@@ -1,6 +1,6 @@
 (*
     module  : app1.joy
-    version : 1.2
-    date    : 08/20/22
+    version : 1.3
+    date    : 09/19/23
 *)
 1 2 3 [+] app1 stack [5 1] equal.
diff --git a/test2/app11.joy b/test2/app11.joy
@@ -1,6 +1,6 @@
 (*
     module  : app11.joy
-    version : 1.3
-    date    : 08/20/22
+    version : 1.4
+    date    : 09/19/23
 *)
 1 2 3 [+] app11 stack [5] equal.
diff --git a/test2/app12.joy b/test2/app12.joy
@@ -1,6 +1,6 @@
 (*
     module  : app12.joy
-    version : 1.3
-    date    : 08/20/22
+    version : 1.4
+    date    : 09/19/23
 *)
-1 2 3 4 [+] app12 stack [6 5 1] equal.
+1 2 3 4 [over +] app12 stack [6 5 1] equal.
diff --git a/test2/app2.joy b/test2/app2.joy
@@ -1,6 +1,6 @@
 (*
     module  : app2.joy
-    version : 1.2
-    date    : 08/20/22
+    version : 1.3
+    date    : 09/19/23
 *)
 2 3 [succ] app2 stack [4 3] equal.
diff --git a/test2/app3.joy b/test2/app3.joy
@@ -1,6 +1,6 @@
 (*
     module  : app3.joy
-    version : 1.2
-    date    : 08/20/22
+    version : 1.3
+    date    : 09/19/23
 *)
 2 3 4 [succ] app3 stack [5 4 3] equal.
diff --git a/test2/app4.joy b/test2/app4.joy
@@ -1,6 +1,6 @@
 (*
     module  : app4.joy
-    version : 1.2
-    date    : 08/20/22
+    version : 1.3
+    date    : 09/19/23
 *)
 2 3 4 5 [succ] app4 stack [6 5 4 3] equal.
diff --git a/test2/argc.joy b/test2/argc.joy
@@ -1,6 +1,6 @@
 (*
     module  : argc.joy
-    version : 1.2
-    date    : 08/20/22
+    version : 1.3
+    date    : 09/19/23
 *)
 argc 1 =.
diff --git a/test2/argv.joy b/test2/argv.joy
@@ -1,6 +1,7 @@
 (*
     module  : argv.joy
-    version : 1.2
-    date    : 08/20/22
+    version : 1.3
+    date    : 09/19/23
 *)
-argv ["argv.joy"] equal.
+argv 0 at [dup '. has] [dup size 4 - take]	# strip .joy
+[] ifte "argv" =.
diff --git a/test2/asin.joy b/test2/asin.joy
@@ -1,6 +1,6 @@
 (*
     module  : asin.joy
-    version : 1.2
-    date    : 08/20/22
+    version : 1.3
+    date    : 09/19/23
 *)
 0.1 asin 'g 0 6 formatf strtod 0.100167 =.
diff --git a/test2/at.joy b/test2/at.joy
@@ -1,7 +1,7 @@
 (*
     module  : at.joy
-    version : 1.2
-    date    : 08/20/22
+    version : 1.3
+    date    : 09/19/23
 *)
 [4 5 6] 2 at 6 =.
 "test" 2 at 's =.

diff --git a/test2/atan.joy b/test2/atan.joy
@@ -1,6 +1,6 @@
 (*
     module  : atan.joy
-    version : 1.2
-    date    : 08/20/22
+    version : 1.3
+    date    : 09/19/23
 *)
 0.1 atan 'g 0 6 formatf strtod 0.0996687 =.
diff --git a/test2/atan2.joy b/test2/atan2.joy
@@ -1,6 +1,6 @@
 (*
     module  : atan2.joy
-    version : 1.2
-    date    : 08/20/22
+    version : 1.3
+    date    : 09/19/23
 *)
 0.9 0.1 atan2 'g 0 6 formatf strtod 1.46014 =.
diff --git a/test2/autoput.joy b/test2/autoput.joy
@@ -1,6 +1,6 @@
 (*
     module  : autoput.joy
-    version : 1.2
-    date    : 08/20/22
+    version : 1.3
+    date    : 09/19/23
 *)
 autoput 1 =.
diff --git a/test2/binary.joy b/test2/binary.joy
@@ -1,7 +1,7 @@
 (*
     module  : binary.joy
-    version : 1.3
-    date    : 05/23/23
+    version : 1.4
+    date    : 09/19/23
 *)
 3 4 5 [+] binary stack [9 3] equal.
 

diff --git a/test2/binrec.joy b/test2/binrec.joy
@@ -1,6 +1,6 @@
 (*
     module  : binrec.joy
-    version : 1.2
-    date    : 08/20/22
+    version : 1.3
+    date    : 09/19/23
 *)
-10 [small] [] [pred dup pred] [+] binrec 55 =.
+10 [dup small] [] [pred dup pred] [+] binrec 55 =.
diff --git a/test2/body.joy b/test2/body.joy
@@ -1,7 +1,7 @@
 (*
     module  : body.joy
-    version : 1.2
-    date    : 08/20/22
+    version : 1.3
+    date    : 09/19/23
 *)
 DEFINE	last == dup rest null [first] [rest last] branch.
 

diff --git a/test2/branch.joy b/test2/branch.joy
@@ -1,7 +1,7 @@
 (*
     module  : branch.joy
-    version : 1.3
-    date    : 08/20/22
+    version : 1.4
+    date    : 09/19/23
 *)
 0 not [true] [false] branch.
 1 not [true] [false] branch false =.
diff --git a/test2/case.joy b/test2/case.joy
@@ -1,7 +1,7 @@
 (*
     module  : case.joy
-    version : 1.3
-    date    : 08/20/22
+    version : 1.4
+    date    : 09/19/23
 *)
 DEFINE	test == [[1 [one] first]
 		 [2 [two] first]

diff --git a/test2/casting.joy b/test2/casting.joy
@@ -1,17 +1,13 @@
 (*
     module  : casting.joy
-    version : 1.1
-    date    : 07/10/23
+    version : 1.2
+    date    : 09/19/23
 *)
-DEFINE	last == dup rest null [first] [rest last] branch.
-
-[last] first [last] first casting [last] first =.
 [pop] first [pop] first casting [pop] first =.
 1 false casting.
 66 'A casting 'B =.
 'A 10 casting 65 =.
 123456789 {} casting {0 2 4 8 10 11 14 15 16 17 19 20 22 24 25 26} =.
-# [last] first "" casting.
 0 [] casting [] equal.
 1 1.1 casting 4.94066e-324 =.
 argv stdin casting argv !=.
diff --git a/test2/ceil.joy b/test2/ceil.joy
@@ -1,6 +1,6 @@
 (*
     module  : ceil.joy
-    version : 1.2
-    date    : 08/20/22
+    version : 1.3
+    date    : 09/19/23
 *)
 1.5 ceil 2 =.