rebuild bootfiles, update patchfiles

cddwx525 · Jul 18, 2018 · a0241cd · a0241cd
1 parent 9866aa6
commit a0241cd
Show file tree

Hide file tree

Showing 52 changed files with 236 additions and 184 deletions.
diff --git a/boot/a6le/equates.h b/boot/a6le/equates.h
@@ -262,7 +262,7 @@ typedef unsigned long U64;
 #define int_bits 0x20
 #define integer_divide_instruction 1
 #define keyboard_interrupt_index 0x3
-#define library_entry_vector_size 0x20C
+#define library_entry_vector_size 0x210
 #define libspec_closure_index 0xD
 #define libspec_does_not_expect_headroom_index 0x0
 #define libspec_error_index 0xE
@@ -961,5 +961,5 @@ typedef unsigned long U64;
 #define VIRTREG(x,i) (((ptr *)((uptr)(x)+152))[i])
 
 /* library entries we access from C code */
-#define library_nonprocedure_code 150
-#define library_dounderflow 152
+#define library_nonprocedure_code 152
+#define library_dounderflow 154
diff --git a/boot/a6le/petite.boot b/boot/a6le/petite.boot
diff --git a/boot/a6le/scheme.boot b/boot/a6le/scheme.boot
diff --git a/boot/a6le/scheme.h b/boot/a6le/scheme.h
@@ -183,6 +183,7 @@ EXPORT void Sretain_static_relocation PROTO((void));
 EXPORT void Sset_verbose PROTO((int));
 EXPORT void Sscheme_init PROTO((void (*)(void)));
 EXPORT void Sregister_boot_file PROTO((const char *));
+EXPORT void Sregister_boot_file_fd PROTO((const char *, int fd));
 EXPORT void Sregister_heap_file PROTO((const char *));
 EXPORT void Scompact_heap PROTO((void));
 EXPORT void Ssave_heap PROTO((const char *, int));

diff --git a/boot/a6nt/equates.h b/boot/a6nt/equates.h
@@ -262,7 +262,7 @@ typedef unsigned long long U64;
 #define int_bits 0x20
 #define integer_divide_instruction 1
 #define keyboard_interrupt_index 0x3
-#define library_entry_vector_size 0x20C
+#define library_entry_vector_size 0x210
 #define libspec_closure_index 0xD
 #define libspec_does_not_expect_headroom_index 0x0
 #define libspec_error_index 0xE
@@ -961,5 +961,5 @@ typedef unsigned long long U64;
 #define VIRTREG(x,i) (((ptr *)((uptr)(x)+152))[i])
 
 /* library entries we access from C code */
-#define library_nonprocedure_code 150
-#define library_dounderflow 152
+#define library_nonprocedure_code 152
+#define library_dounderflow 154
diff --git a/boot/a6nt/petite.boot b/boot/a6nt/petite.boot
diff --git a/boot/a6nt/scheme.boot b/boot/a6nt/scheme.boot
diff --git a/boot/a6nt/scheme.h b/boot/a6nt/scheme.h
@@ -183,6 +183,7 @@ EXPORT void Sretain_static_relocation PROTO((void));
 EXPORT void Sset_verbose PROTO((int));
 EXPORT void Sscheme_init PROTO((void (*)(void)));
 EXPORT void Sregister_boot_file PROTO((const char *));
+EXPORT void Sregister_boot_file_fd PROTO((const char *, int fd));
 EXPORT void Sregister_heap_file PROTO((const char *));
 EXPORT void Scompact_heap PROTO((void));
 EXPORT void Ssave_heap PROTO((const char *, int));

diff --git a/boot/a6osx/equates.h b/boot/a6osx/equates.h
@@ -262,7 +262,7 @@ typedef unsigned long U64;
 #define int_bits 0x20
 #define integer_divide_instruction 1
 #define keyboard_interrupt_index 0x3
-#define library_entry_vector_size 0x20C
+#define library_entry_vector_size 0x210
 #define libspec_closure_index 0xD
 #define libspec_does_not_expect_headroom_index 0x0
 #define libspec_error_index 0xE
@@ -961,5 +961,5 @@ typedef unsigned long U64;
 #define VIRTREG(x,i) (((ptr *)((uptr)(x)+152))[i])
 
 /* library entries we access from C code */
-#define library_nonprocedure_code 150
-#define library_dounderflow 152
+#define library_nonprocedure_code 152
+#define library_dounderflow 154
diff --git a/boot/a6osx/petite.boot b/boot/a6osx/petite.boot
diff --git a/boot/a6osx/scheme.boot b/boot/a6osx/scheme.boot
diff --git a/boot/a6osx/scheme.h b/boot/a6osx/scheme.h
@@ -183,6 +183,7 @@ EXPORT void Sretain_static_relocation PROTO((void));
 EXPORT void Sset_verbose PROTO((int));
 EXPORT void Sscheme_init PROTO((void (*)(void)));
 EXPORT void Sregister_boot_file PROTO((const char *));
+EXPORT void Sregister_boot_file_fd PROTO((const char *, int fd));
 EXPORT void Sregister_heap_file PROTO((const char *));
 EXPORT void Scompact_heap PROTO((void));
 EXPORT void Ssave_heap PROTO((const char *, int));

diff --git a/boot/i3le/equates.h b/boot/i3le/equates.h
@@ -263,7 +263,7 @@ typedef unsigned long long U64;
 #define int_bits 0x20
 #define integer_divide_instruction 1
 #define keyboard_interrupt_index 0x3
-#define library_entry_vector_size 0x20C
+#define library_entry_vector_size 0x210
 #define libspec_closure_index 0xD
 #define libspec_does_not_expect_headroom_index 0x0
 #define libspec_error_index 0xE
@@ -959,5 +959,5 @@ typedef unsigned long long U64;
 #define VIRTREG(x,i) (((ptr *)((uptr)(x)+60))[i])
 
 /* library entries we access from C code */
-#define library_nonprocedure_code 150
-#define library_dounderflow 152
+#define library_nonprocedure_code 152
+#define library_dounderflow 154
diff --git a/boot/i3le/petite.boot b/boot/i3le/petite.boot
diff --git a/boot/i3le/scheme.boot b/boot/i3le/scheme.boot
diff --git a/boot/i3le/scheme.h b/boot/i3le/scheme.h
@@ -183,6 +183,7 @@ EXPORT void Sretain_static_relocation PROTO((void));
 EXPORT void Sset_verbose PROTO((int));
 EXPORT void Sscheme_init PROTO((void (*)(void)));
 EXPORT void Sregister_boot_file PROTO((const char *));
+EXPORT void Sregister_boot_file_fd PROTO((const char *, int fd));
 EXPORT void Sregister_heap_file PROTO((const char *));
 EXPORT void Scompact_heap PROTO((void));
 EXPORT void Ssave_heap PROTO((const char *, int));

diff --git a/boot/i3nt/equates.h b/boot/i3nt/equates.h
@@ -263,7 +263,7 @@ typedef unsigned __int64 U64;
 #define int_bits 0x20
 #define integer_divide_instruction 1
 #define keyboard_interrupt_index 0x3
-#define library_entry_vector_size 0x20C
+#define library_entry_vector_size 0x210
 #define libspec_closure_index 0xD
 #define libspec_does_not_expect_headroom_index 0x0
 #define libspec_error_index 0xE
@@ -960,5 +960,5 @@ typedef unsigned __int64 U64;
 #define VIRTREG(x,i) (((ptr *)((uptr)(x)+60))[i])
 
 /* library entries we access from C code */
-#define library_nonprocedure_code 150
-#define library_dounderflow 152
+#define library_nonprocedure_code 152
+#define library_dounderflow 154
diff --git a/boot/i3nt/petite.boot b/boot/i3nt/petite.boot
diff --git a/boot/i3nt/scheme.boot b/boot/i3nt/scheme.boot
diff --git a/boot/i3nt/scheme.h b/boot/i3nt/scheme.h
@@ -183,6 +183,7 @@ EXPORT void Sretain_static_relocation PROTO((void));
 EXPORT void Sset_verbose PROTO((int));
 EXPORT void Sscheme_init PROTO((void (*)(void)));
 EXPORT void Sregister_boot_file PROTO((const char *));
+EXPORT void Sregister_boot_file_fd PROTO((const char *, int fd));
 EXPORT void Sregister_heap_file PROTO((const char *));
 EXPORT void Scompact_heap PROTO((void));
 EXPORT void Ssave_heap PROTO((const char *, int));

diff --git a/boot/i3osx/equates.h b/boot/i3osx/equates.h
@@ -263,7 +263,7 @@ typedef unsigned long long U64;
 #define int_bits 0x20
 #define integer_divide_instruction 1
 #define keyboard_interrupt_index 0x3
-#define library_entry_vector_size 0x20C
+#define library_entry_vector_size 0x210
 #define libspec_closure_index 0xD
 #define libspec_does_not_expect_headroom_index 0x0
 #define libspec_error_index 0xE
@@ -959,5 +959,5 @@ typedef unsigned long long U64;
 #define VIRTREG(x,i) (((ptr *)((uptr)(x)+60))[i])
 
 /* library entries we access from C code */
-#define library_nonprocedure_code 150
-#define library_dounderflow 152
+#define library_nonprocedure_code 152
+#define library_dounderflow 154
diff --git a/boot/i3osx/petite.boot b/boot/i3osx/petite.boot
diff --git a/boot/i3osx/scheme.boot b/boot/i3osx/scheme.boot
diff --git a/boot/i3osx/scheme.h b/boot/i3osx/scheme.h
@@ -183,6 +183,7 @@ EXPORT void Sretain_static_relocation PROTO((void));
 EXPORT void Sset_verbose PROTO((int));
 EXPORT void Sscheme_init PROTO((void (*)(void)));
 EXPORT void Sregister_boot_file PROTO((const char *));
+EXPORT void Sregister_boot_file_fd PROTO((const char *, int fd));
 EXPORT void Sregister_heap_file PROTO((const char *));
 EXPORT void Scompact_heap PROTO((void));
 EXPORT void Ssave_heap PROTO((const char *, int));

diff --git a/boot/ta6le/equates.h b/boot/ta6le/equates.h
@@ -262,7 +262,7 @@ typedef unsigned long U64;
 #define int_bits 0x20
 #define integer_divide_instruction 1
 #define keyboard_interrupt_index 0x3
-#define library_entry_vector_size 0x20C
+#define library_entry_vector_size 0x210
 #define libspec_closure_index 0xD
 #define libspec_does_not_expect_headroom_index 0x0
 #define libspec_error_index 0xE
@@ -961,5 +961,5 @@ typedef unsigned long U64;
 #define VIRTREG(x,i) (((ptr *)((uptr)(x)+152))[i])
 
 /* library entries we access from C code */
-#define library_nonprocedure_code 150
-#define library_dounderflow 152
+#define library_nonprocedure_code 152
+#define library_dounderflow 154
diff --git a/boot/ta6le/petite.boot b/boot/ta6le/petite.boot
diff --git a/boot/ta6le/scheme.boot b/boot/ta6le/scheme.boot
diff --git a/boot/ta6le/scheme.h b/boot/ta6le/scheme.h
@@ -183,6 +183,7 @@ EXPORT void Sretain_static_relocation PROTO((void));
 EXPORT void Sset_verbose PROTO((int));
 EXPORT void Sscheme_init PROTO((void (*)(void)));
 EXPORT void Sregister_boot_file PROTO((const char *));
+EXPORT void Sregister_boot_file_fd PROTO((const char *, int fd));
 EXPORT void Sregister_heap_file PROTO((const char *));
 EXPORT void Scompact_heap PROTO((void));
 EXPORT void Ssave_heap PROTO((const char *, int));

diff --git a/boot/ta6nt/equates.h b/boot/ta6nt/equates.h
@@ -262,7 +262,7 @@ typedef unsigned long long U64;
 #define int_bits 0x20
 #define integer_divide_instruction 1
 #define keyboard_interrupt_index 0x3
-#define library_entry_vector_size 0x20C
+#define library_entry_vector_size 0x210
 #define libspec_closure_index 0xD
 #define libspec_does_not_expect_headroom_index 0x0
 #define libspec_error_index 0xE
@@ -961,5 +961,5 @@ typedef unsigned long long U64;
 #define VIRTREG(x,i) (((ptr *)((uptr)(x)+152))[i])
 
 /* library entries we access from C code */
-#define library_nonprocedure_code 150
-#define library_dounderflow 152
+#define library_nonprocedure_code 152
+#define library_dounderflow 154
diff --git a/boot/ta6nt/petite.boot b/boot/ta6nt/petite.boot
diff --git a/boot/ta6nt/scheme.boot b/boot/ta6nt/scheme.boot
diff --git a/boot/ta6nt/scheme.h b/boot/ta6nt/scheme.h
@@ -183,6 +183,7 @@ EXPORT void Sretain_static_relocation PROTO((void));
 EXPORT void Sset_verbose PROTO((int));
 EXPORT void Sscheme_init PROTO((void (*)(void)));
 EXPORT void Sregister_boot_file PROTO((const char *));
+EXPORT void Sregister_boot_file_fd PROTO((const char *, int fd));
 EXPORT void Sregister_heap_file PROTO((const char *));
 EXPORT void Scompact_heap PROTO((void));
 EXPORT void Ssave_heap PROTO((const char *, int));

diff --git a/boot/ta6osx/equates.h b/boot/ta6osx/equates.h
@@ -262,7 +262,7 @@ typedef unsigned long U64;
 #define int_bits 0x20
 #define integer_divide_instruction 1
 #define keyboard_interrupt_index 0x3
-#define library_entry_vector_size 0x20C
+#define library_entry_vector_size 0x210
 #define libspec_closure_index 0xD
 #define libspec_does_not_expect_headroom_index 0x0
 #define libspec_error_index 0xE
@@ -961,5 +961,5 @@ typedef unsigned long U64;
 #define VIRTREG(x,i) (((ptr *)((uptr)(x)+152))[i])
 
 /* library entries we access from C code */
-#define library_nonprocedure_code 150
-#define library_dounderflow 152
+#define library_nonprocedure_code 152
+#define library_dounderflow 154
diff --git a/boot/ta6osx/petite.boot b/boot/ta6osx/petite.boot
diff --git a/boot/ta6osx/scheme.boot b/boot/ta6osx/scheme.boot
diff --git a/boot/ta6osx/scheme.h b/boot/ta6osx/scheme.h
@@ -183,6 +183,7 @@ EXPORT void Sretain_static_relocation PROTO((void));
 EXPORT void Sset_verbose PROTO((int));
 EXPORT void Sscheme_init PROTO((void (*)(void)));
 EXPORT void Sregister_boot_file PROTO((const char *));
+EXPORT void Sregister_boot_file_fd PROTO((const char *, int fd));
 EXPORT void Sregister_heap_file PROTO((const char *));
 EXPORT void Scompact_heap PROTO((void));
 EXPORT void Ssave_heap PROTO((const char *, int));

diff --git a/boot/ti3le/equates.h b/boot/ti3le/equates.h
@@ -263,7 +263,7 @@ typedef unsigned long long U64;
 #define int_bits 0x20
 #define integer_divide_instruction 1
 #define keyboard_interrupt_index 0x3
-#define library_entry_vector_size 0x20C
+#define library_entry_vector_size 0x210
 #define libspec_closure_index 0xD
 #define libspec_does_not_expect_headroom_index 0x0
 #define libspec_error_index 0xE
@@ -959,5 +959,5 @@ typedef unsigned long long U64;
 #define VIRTREG(x,i) (((ptr *)((uptr)(x)+60))[i])
 
 /* library entries we access from C code */
-#define library_nonprocedure_code 150
-#define library_dounderflow 152
+#define library_nonprocedure_code 152
+#define library_dounderflow 154
diff --git a/boot/ti3le/petite.boot b/boot/ti3le/petite.boot
diff --git a/boot/ti3le/scheme.boot b/boot/ti3le/scheme.boot
diff --git a/boot/ti3le/scheme.h b/boot/ti3le/scheme.h
@@ -183,6 +183,7 @@ EXPORT void Sretain_static_relocation PROTO((void));
 EXPORT void Sset_verbose PROTO((int));
 EXPORT void Sscheme_init PROTO((void (*)(void)));
 EXPORT void Sregister_boot_file PROTO((const char *));
+EXPORT void Sregister_boot_file_fd PROTO((const char *, int fd));
 EXPORT void Sregister_heap_file PROTO((const char *));
 EXPORT void Scompact_heap PROTO((void));
 EXPORT void Ssave_heap PROTO((const char *, int));

diff --git a/boot/ti3nt/equates.h b/boot/ti3nt/equates.h
@@ -263,7 +263,7 @@ typedef unsigned __int64 U64;
 #define int_bits 0x20
 #define integer_divide_instruction 1
 #define keyboard_interrupt_index 0x3
-#define library_entry_vector_size 0x20C
+#define library_entry_vector_size 0x210
 #define libspec_closure_index 0xD
 #define libspec_does_not_expect_headroom_index 0x0
 #define libspec_error_index 0xE
@@ -960,5 +960,5 @@ typedef unsigned __int64 U64;
 #define VIRTREG(x,i) (((ptr *)((uptr)(x)+60))[i])
 
 /* library entries we access from C code */
-#define library_nonprocedure_code 150
-#define library_dounderflow 152
+#define library_nonprocedure_code 152
+#define library_dounderflow 154
diff --git a/boot/ti3nt/petite.boot b/boot/ti3nt/petite.boot
diff --git a/boot/ti3nt/scheme.boot b/boot/ti3nt/scheme.boot
diff --git a/boot/ti3nt/scheme.h b/boot/ti3nt/scheme.h
@@ -183,6 +183,7 @@ EXPORT void Sretain_static_relocation PROTO((void));
 EXPORT void Sset_verbose PROTO((int));
 EXPORT void Sscheme_init PROTO((void (*)(void)));
 EXPORT void Sregister_boot_file PROTO((const char *));
+EXPORT void Sregister_boot_file_fd PROTO((const char *, int fd));
 EXPORT void Sregister_heap_file PROTO((const char *));
 EXPORT void Scompact_heap PROTO((void));
 EXPORT void Ssave_heap PROTO((const char *, int));

diff --git a/boot/ti3osx/equates.h b/boot/ti3osx/equates.h
@@ -263,7 +263,7 @@ typedef unsigned long long U64;
 #define int_bits 0x20
 #define integer_divide_instruction 1
 #define keyboard_interrupt_index 0x3
-#define library_entry_vector_size 0x20C
+#define library_entry_vector_size 0x210
 #define libspec_closure_index 0xD
 #define libspec_does_not_expect_headroom_index 0x0
 #define libspec_error_index 0xE
@@ -959,5 +959,5 @@ typedef unsigned long long U64;
 #define VIRTREG(x,i) (((ptr *)((uptr)(x)+60))[i])
 
 /* library entries we access from C code */
-#define library_nonprocedure_code 150
-#define library_dounderflow 152
+#define library_nonprocedure_code 152
+#define library_dounderflow 154
diff --git a/boot/ti3osx/petite.boot b/boot/ti3osx/petite.boot
diff --git a/boot/ti3osx/scheme.boot b/boot/ti3osx/scheme.boot
diff --git a/boot/ti3osx/scheme.h b/boot/ti3osx/scheme.h
@@ -183,6 +183,7 @@ EXPORT void Sretain_static_relocation PROTO((void));
 EXPORT void Sset_verbose PROTO((int));
 EXPORT void Sscheme_init PROTO((void (*)(void)));
 EXPORT void Sregister_boot_file PROTO((const char *));
+EXPORT void Sregister_boot_file_fd PROTO((const char *, int fd));
 EXPORT void Sregister_heap_file PROTO((const char *));
 EXPORT void Scompact_heap PROTO((void));
 EXPORT void Ssave_heap PROTO((const char *, int));

diff --git a/mats/patch-compile-0-f-t-f b/mats/patch-compile-0-f-t-f
@@ -1,5 +1,5 @@
-*** errors-compile-0-f-f-f	2018-07-16 14:43:05.195920036 -0400
---- errors-compile-0-f-t-f	2018-07-16 14:11:48.751983271 -0400
+*** errors-compile-0-f-f-f	2018-07-17 17:57:31.932340347 -0400
+--- errors-compile-0-f-t-f	2018-07-17 17:05:48.812444920 -0400
 ***************
 *** 125,131 ****
   3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable a".
@@ -75,7 +75,7 @@
   misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable b".
   misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable a".
 ***************
-*** 7148,7155 ****
+*** 7161,7168 ****
   7.mo:Expected error in mat bytes-allocated: "bytes-allocated: invalid space gnu".
   7.mo:Expected error in mat error: "a: hit me!".
   7.mo:Expected error in mat error: "f: n is 0".
@@ -84,7 +84,7 @@
   record.mo:Expected error in mat record2: "invalid value 3 for foreign type double-float".
   record.mo:Expected error in mat record2: "3 is not of type #<record type fudge>".
   record.mo:Expected error in mat record2: "make-record-type: invalid field list ((immutable double-float a) . b)".
---- 7148,7155 ----
+--- 7161,7168 ----
   7.mo:Expected error in mat bytes-allocated: "bytes-allocated: invalid space gnu".
   7.mo:Expected error in mat error: "a: hit me!".
   7.mo:Expected error in mat error: "f: n is 0".
@@ -94,7 +94,7 @@
   record.mo:Expected error in mat record2: "3 is not of type #<record type fudge>".
   record.mo:Expected error in mat record2: "make-record-type: invalid field list ((immutable double-float a) . b)".
 ***************
-*** 7157,7171 ****
+*** 7170,7184 ****
   record.mo:Expected error in mat type-descriptor: "invalid syntax (type-descriptor 3)".
   record.mo:Expected error in mat type-descriptor: "type-descriptor: unrecognized record car".
   record.mo:Expected error in mat record3: "variable set-fudge-a! is not bound".
@@ -110,7 +110,7 @@
   record.mo:Expected error in mat record9: "record-reader: invalid input #f".
   record.mo:Expected error in mat record9: "record-reader: invalid second argument fudge".
   record.mo:Expected error in mat record9: "record-reader: invalid second argument fudge".
---- 7157,7171 ----
+--- 7170,7184 ----
   record.mo:Expected error in mat type-descriptor: "invalid syntax (type-descriptor 3)".
   record.mo:Expected error in mat type-descriptor: "type-descriptor: unrecognized record car".
   record.mo:Expected error in mat record3: "variable set-fudge-a! is not bound".
@@ -127,7 +127,7 @@
   record.mo:Expected error in mat record9: "record-reader: invalid second argument fudge".
   record.mo:Expected error in mat record9: "record-reader: invalid second argument fudge".
 ***************
-*** 7178,7203 ****
+*** 7191,7216 ****
   record.mo:Expected error in mat record10: "read: unresolvable cycle constructing record of type #<record type bar> at char 3 of #<input port string>".
   record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type #<record type bazar> at char 3 of #<input port string>".
   record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type #<record type bazar> at char 3 of #<input port string>".
@@ -154,7 +154,7 @@
   record.mo:Expected error in mat foreign-data: "foreign-alloc: 0 is not a positive fixnum".
   record.mo:Expected error in mat foreign-data: "foreign-alloc: <int> is not a positive fixnum".
   record.mo:Expected error in mat foreign-data: "foreign-alloc: -5 is not a positive fixnum".
---- 7178,7203 ----
+--- 7191,7216 ----
   record.mo:Expected error in mat record10: "read: unresolvable cycle constructing record of type #<record type bar> at char 3 of #<input port string>".
   record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type #<record type bazar> at char 3 of #<input port string>".
   record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type #<record type bazar> at char 3 of #<input port string>".
@@ -182,7 +182,7 @@
   record.mo:Expected error in mat foreign-data: "foreign-alloc: <int> is not a positive fixnum".
   record.mo:Expected error in mat foreign-data: "foreign-alloc: -5 is not a positive fixnum".
 ***************
-*** 7328,7366 ****
+*** 7341,7379 ****
   record.mo:Expected error in mat record22: "invalid field specifier (immutable creepy q)".
   record.mo:Expected error in mat record22: "invalid field specifier (immutable creepy q)".
   record.mo:Expected error in mat record23: "make-record-type: cannot extend sealed record type #<record type foo>".
@@ -222,7 +222,7 @@
   record.mo:Expected error in mat record?: "record?: 4 is not a record type descriptor".
   record.mo:Expected error in mat record?: "record?: a is not a record type descriptor".
   record.mo:Expected error in mat record?: "record?: #(1) is not a record type descriptor".
---- 7328,7366 ----
+--- 7341,7379 ----
   record.mo:Expected error in mat record22: "invalid field specifier (immutable creepy q)".
   record.mo:Expected error in mat record22: "invalid field specifier (immutable creepy q)".
   record.mo:Expected error in mat record23: "make-record-type: cannot extend sealed record type #<record type foo>".
@@ -263,7 +263,7 @@
   record.mo:Expected error in mat record?: "record?: a is not a record type descriptor".
   record.mo:Expected error in mat record?: "record?: #(1) is not a record type descriptor".
 ***************
-*** 7375,7431 ****
+*** 7388,7444 ****
   record.mo:Expected error in mat r6rs-records-procedural: "make-record-constructor-descriptor: invalid protocol flimflam".
   record.mo:Expected error in mat r6rs-records-procedural: "attempt to apply non-procedure not-a-procedure".
   record.mo:Expected error in mat r6rs-records-procedural: "attempt to apply non-procedure spam".
@@ -321,7 +321,7 @@
   record.mo:Expected error in mat r6rs-records-syntactic: "define-record-type: incompatible record type cpoint - different parent".
   record.mo:Expected error in mat r6rs-records-syntactic: "define-record-type: incompatible record type cpoint - different parent".
   record.mo:Expected error in mat r6rs-records-syntactic: "cannot extend define-record-type parent fratrat".
---- 7375,7431 ----
+--- 7388,7444 ----
   record.mo:Expected error in mat r6rs-records-procedural: "make-record-constructor-descriptor: invalid protocol flimflam".
   record.mo:Expected error in mat r6rs-records-procedural: "attempt to apply non-procedure not-a-procedure".
   record.mo:Expected error in mat r6rs-records-procedural: "attempt to apply non-procedure spam".