racket/mats/patch-compile-0-t-t-f
dybvig 0a5700cef6 support for internal fasl compression to allow seeking past compile-time info at run time and run-time info at compile time
- the collector now releases bignum temporaries in the collector
  rather than relocating them so we don't keep around huge bignum
  temporaries forever.
     gc.c
- removed the presumably useless vector-handling code from load()
  which used to be required to handle fasl groups.
     scheme.c
- object files are no longer compressed as a whole, and the parameter
  compile-compressed is no longer defined.  instead, the individual
  fasl objects within an object file are compressed whenever the
  new parameter fasl-compressed is set to its default value, #t.
  this allows the fasl reader to seek past portions of an object
  file that are not of interest, i.e., visit-only code and data
  when "revisiting" an object file and revisit-only code and data
  when "visiting" an object file.  the compressed portions are
  compressed using the format and level specified by the compress-format
  and compress-level parameters.  the C-coded fasl reader and
  boot-file loader no longer handle compressed files; these are
  handled, less efficiently, by the Scheme entry point (fasl-read).
  a warning exception is raised the first time a program attempts
  to create or read a compressed fasl file.
    7.ss, s/Mf-base, back.ss, bytevector.ss, cmacros.ss, compile.ss,
    fasl-helpers.ss, fasl.ss, primdata.ss, strip.ss, syntax.ss,
    externs.h, fasl.c, gc.c, scheme.c, thread.c,
    mats/6.ms, mats/7.ms, mats/bytevector.ms, mats/misc.ms, patch*,
    root-experr*,
    intro.stex, use.stex, io.stex, system.stex,
    release_notes.stex
- added begin wrappers around many of the Scheme source files that
  contained multiple expressions to cut down the number of top-level
  fasl objects and increase compressibility.  also removed the
  string filenames for debugging at the start of each file that had
  one---these are best inserted universally by a modified compile-file
  during a debugging session when desired.  also removed unnecessary
  top-level placeholder definitions for the assignments that follow.
    4.ss, 5_1.ss, 5_2.ss, 5_3.ss, 5_7.ss, 6.ss, 7.ss, bytevector.ss,
    cafe.ss, cback.ss, compile.ss, cp0.ss, cpcommonize.ss, cpletrec.ss,
    cpnanopass.ss, cprep.ss, cpvalid.ss, date.ss, engine.ss, enum.ss,
    env.ss, event.ss, exceptions.ss, expeditor.ss, fasl.ss, foreign.ss,
    format.ss, front.ss, ftype.ss, inspect.ss, interpret.ss, io.ss,
    library.ss, mathprims.ss, newhash.ss, pdhtml.ss, pretty.ss,
    prims.ss, primvars.ss, print.ss, read.ss, record.ss, reloc.ss,
    strnum.ss, syntax.ss, trace.ss

original commit: b7f161bf2939dfedce8accbfa82b92dbe011d32a
2020-03-04 16:53:35 -05:00

300 lines
28 KiB
Plaintext

*** errors-compile-0-t-f-f 2020-02-28 00:59:57.516641553 -0500
--- errors-compile-0-t-t-f 2020-02-28 00:55:03.513627852 -0500
***************
*** 197,203 ****
3.mo:Expected error in mat cpvalid: "attempt to reference undefined variable b".
3.mo:Expected error in mat cpvalid: "attempt to reference undefined variable a".
3.mo:Expected error in mat cpvalid: "attempt to reference undefined variable g".
! 3.mo:Expected error in mat cpvalid: "attempt to reference undefined variable f".
3.mo:Expected error in mat cpvalid: "attempt to reference undefined variable f".
3.mo:Expected error in mat cpvalid: "attempt to reference undefined variable c".
3.mo:Expected warning in mat cpvalid: "possible attempt to reference undefined variable x".
--- 197,203 ----
3.mo:Expected error in mat cpvalid: "attempt to reference undefined variable b".
3.mo:Expected error in mat cpvalid: "attempt to reference undefined variable a".
3.mo:Expected error in mat cpvalid: "attempt to reference undefined variable g".
! 3.mo:Expected error in mat cpvalid: "attempt to reference undefined variable g".
3.mo:Expected error in mat cpvalid: "attempt to reference undefined variable f".
3.mo:Expected error in mat cpvalid: "attempt to reference undefined variable c".
3.mo:Expected warning in mat cpvalid: "possible attempt to reference undefined variable x".
***************
*** 3929,3935 ****
misc.mo:Expected error in mat cpletrec: "foreign-procedure: no entry for "foo"".
misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable q".
misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable bar".
! misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable foo at line 1, char 108 of testfile.ss".
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 b".
misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable a".
--- 3929,3935 ----
misc.mo:Expected error in mat cpletrec: "foreign-procedure: no entry for "foo"".
misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable q".
misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable bar".
! misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable bar at line 1, char 76 of testfile.ss".
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 b".
misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable a".
***************
*** 7436,7443 ****
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".
! record.mo:Expected error in mat record1: "invalid value 3 for foreign type double-float".
! record.mo:Expected error in mat record1: "3 is not of type #<record type fudge>".
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)".
--- 7436,7443 ----
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".
! record.mo:Expected error in mat record1: "make-fudge: invalid value 3 for foreign type double-float".
! record.mo:Expected error in mat record1: "fudge-a: 3 is not of type #<record type fudge>".
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)".
***************
*** 7445,7459 ****
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".
! record.mo:Expected error in mat record4: "3 is not of type #<record type fudge>".
! record.mo:Expected error in mat record5: "invalid value 4 for foreign type double-float".
! record.mo:Expected error in mat record5: "invalid value 4 for foreign type double-float".
! record.mo:Expected error in mat record6: "invalid value <int> for foreign type integer-32".
! record.mo:Expected error in mat record6: "invalid value <-int> for foreign type integer-32".
! record.mo:Expected error in mat record6: "invalid value 23.0 for foreign type integer-32".
! record.mo:Expected error in mat record7: "invalid value <int> for foreign type unsigned-32".
! record.mo:Expected error in mat record7: "invalid value <-int> for foreign type unsigned-32".
! record.mo:Expected error in mat record7: "invalid value 23.0 for foreign type unsigned-32".
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".
--- 7445,7459 ----
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".
! record.mo:Expected error in mat record4: "set-fudge-a!: 3 is not of type #<record type fudge>".
! record.mo:Expected error in mat record5: "set-fudge-b!: invalid value 4 for foreign type double-float".
! record.mo:Expected error in mat record5: "set-fudge-b!: invalid value 4 for foreign type double-float".
! record.mo:Expected error in mat record6: "make-bar: invalid value <int> for foreign type integer-32".
! record.mo:Expected error in mat record6: "make-bar: invalid value <-int> for foreign type integer-32".
! record.mo:Expected error in mat record6: "make-bar: invalid value 23.0 for foreign type integer-32".
! record.mo:Expected error in mat record7: "make-bar: invalid value <int> for foreign type unsigned-32".
! record.mo:Expected error in mat record7: "make-bar: invalid value <-int> for foreign type unsigned-32".
! record.mo:Expected error in mat record7: "make-bar: invalid value 23.0 for foreign type unsigned-32".
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".
***************
*** 7466,7491 ****
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>".
! record.mo:Expected error in mat record17: "invalid value 256 for foreign type unsigned-8".
! record.mo:Expected error in mat record17: "invalid value -129 for foreign type unsigned-8".
! record.mo:Expected error in mat record17: "invalid value 65536 for foreign type unsigned-16".
! record.mo:Expected error in mat record17: "invalid value -32769 for foreign type unsigned-16".
! record.mo:Expected error in mat record17: "invalid value 2 for foreign type double-float".
! record.mo:Expected error in mat record17: "invalid value 3 for foreign type single-float".
! record.mo:Expected error in mat record17: "invalid value 256 for foreign type unsigned-8".
! record.mo:Expected error in mat record17: "invalid value -129 for foreign type unsigned-8".
! record.mo:Expected error in mat record17: "invalid value 2 for foreign type double-float".
! record.mo:Expected error in mat record17: "invalid value 2 for foreign type single-float".
! record.mo:Expected error in mat record17: "invalid value -32769 for foreign type unsigned-16".
! record.mo:Expected error in mat record17: "invalid value 65536 for foreign type unsigned-16".
! record.mo:Expected error in mat record17: "invalid value 256 for foreign type integer-8".
! record.mo:Expected error in mat record17: "invalid value -129 for foreign type integer-8".
! record.mo:Expected error in mat record17: "invalid value 65536 for foreign type integer-16".
! record.mo:Expected error in mat record17: "invalid value -32769 for foreign type integer-16".
! record.mo:Expected error in mat record17: "invalid value 256 for foreign type integer-8".
! record.mo:Expected error in mat record17: "invalid value -129 for foreign type integer-8".
! record.mo:Expected error in mat record17: "invalid value 65536 for foreign type integer-16".
! record.mo:Expected error in mat record17: "invalid value -32769 for foreign type integer-16".
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".
--- 7466,7491 ----
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>".
! record.mo:Expected error in mat record17: "make-$froz: invalid value 256 for foreign type unsigned-8".
! record.mo:Expected error in mat record17: "make-$froz: invalid value -129 for foreign type unsigned-8".
! record.mo:Expected error in mat record17: "make-$froz: invalid value 65536 for foreign type unsigned-16".
! record.mo:Expected error in mat record17: "make-$froz: invalid value -32769 for foreign type unsigned-16".
! record.mo:Expected error in mat record17: "make-$froz: invalid value 2 for foreign type double-float".
! record.mo:Expected error in mat record17: "make-$froz: invalid value 3 for foreign type single-float".
! record.mo:Expected error in mat record17: "set-$froz-x!: invalid value 256 for foreign type unsigned-8".
! record.mo:Expected error in mat record17: "set-$froz-x!: invalid value -129 for foreign type unsigned-8".
! record.mo:Expected error in mat record17: "set-$froz-y!: invalid value 2 for foreign type double-float".
! record.mo:Expected error in mat record17: "set-$froz-z!: invalid value 2 for foreign type single-float".
! record.mo:Expected error in mat record17: "set-$froz-w!: invalid value -32769 for foreign type unsigned-16".
! record.mo:Expected error in mat record17: "set-$froz-w!: invalid value 65536 for foreign type unsigned-16".
! record.mo:Expected error in mat record17: "make-$froz: invalid value 256 for foreign type integer-8".
! record.mo:Expected error in mat record17: "make-$froz: invalid value -129 for foreign type integer-8".
! record.mo:Expected error in mat record17: "make-$froz: invalid value 65536 for foreign type integer-16".
! record.mo:Expected error in mat record17: "make-$froz: invalid value -32769 for foreign type integer-16".
! record.mo:Expected error in mat record17: "set-$froz-x!: invalid value 256 for foreign type integer-8".
! record.mo:Expected error in mat record17: "set-$froz-x!: invalid value -129 for foreign type integer-8".
! record.mo:Expected error in mat record17: "set-$froz-w!: invalid value 65536 for foreign type integer-16".
! record.mo:Expected error in mat record17: "set-$froz-w!: invalid value -32769 for foreign type integer-16".
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".
***************
*** 7616,7654 ****
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>".
! record.mo:Expected error in mat record25: "invalid value 1.0 for foreign type int".
! record.mo:Expected error in mat record25: "invalid value 2.0 for foreign type unsigned".
! record.mo:Expected error in mat record25: "invalid value three for foreign type unsigned-int".
! record.mo:Expected error in mat record25: "invalid value 1/4 for foreign type short".
! record.mo:Expected error in mat record25: "invalid value "five" for foreign type unsigned-short".
! record.mo:Expected error in mat record25: "invalid value (6) for foreign type long".
! record.mo:Expected error in mat record25: "invalid value #(a b c d e f ...) for foreign type unsigned-long".
! record.mo:Expected error in mat record25: "invalid value ate for foreign type iptr".
! record.mo:Expected error in mat record25: "invalid value #\9 for foreign type uptr".
! record.mo:Expected error in mat record25: "invalid value 10 for foreign type float".
! record.mo:Expected error in mat record25: "invalid value 11.0+0.0i for foreign type double".
record.mo:Expected error in mat record25: "incorrect number of arguments to #<procedure make-r25-bar>".
! record.mo:Expected error in mat record25: "invalid value 12.0 for foreign type long-long".
! record.mo:Expected error in mat record25: "invalid value 13.0 for foreign type unsigned-long-long".
! record.mo:Expected error in mat record25: "invalid value 3.0 for foreign type int".
! record.mo:Expected error in mat record25: "invalid value 3.0 for foreign type unsigned".
! record.mo:Expected error in mat record25: "invalid value 3.0 for foreign type unsigned-int".
! record.mo:Expected error in mat record25: "invalid value 3.0 for foreign type short".
! record.mo:Expected error in mat record25: "invalid value 3.0 for foreign type unsigned-short".
! record.mo:Expected error in mat record25: "invalid value 3.0 for foreign type long".
! record.mo:Expected error in mat record25: "invalid value 3.0 for foreign type unsigned-long".
! record.mo:Expected error in mat record25: "invalid value 3.0 for foreign type iptr".
! record.mo:Expected error in mat record25: "invalid value 3.0 for foreign type uptr".
! record.mo:Expected error in mat record25: "invalid value 3 for foreign type float".
! record.mo:Expected error in mat record25: "invalid value 3 for foreign type double".
! record.mo:Expected error in mat record25: "invalid value 3.0 for foreign type char".
! record.mo:Expected error in mat record25: "invalid value 3.0 for foreign type wchar".
! record.mo:Expected error in mat record25: "invalid value 3.0 for foreign type fixnum".
! record.mo:Expected error in mat record25: "invalid value 3.0 for foreign type void*".
! record.mo:Expected error in mat record25: "invalid value 3.0 for foreign type long-long".
! record.mo:Expected error in mat record25: "invalid value 3.0 for foreign type unsigned-long-long".
! record.mo:Expected error in mat record25: "invalid value <int> for foreign type int".
! record.mo:Expected error in mat record25: "invalid value <-int> for foreign type int".
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".
--- 7616,7654 ----
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>".
! record.mo:Expected error in mat record25: "make-r25-bar: invalid value 1.0 for foreign type int".
! record.mo:Expected error in mat record25: "make-r25-bar: invalid value 2.0 for foreign type unsigned".
! record.mo:Expected error in mat record25: "make-r25-bar: invalid value three for foreign type unsigned-int".
! record.mo:Expected error in mat record25: "make-r25-bar: invalid value 1/4 for foreign type short".
! record.mo:Expected error in mat record25: "make-r25-bar: invalid value "five" for foreign type unsigned-short".
! record.mo:Expected error in mat record25: "make-r25-bar: invalid value (6) for foreign type long".
! record.mo:Expected error in mat record25: "make-r25-bar: invalid value #(a b c d e f ...) for foreign type unsigned-long".
! record.mo:Expected error in mat record25: "make-r25-bar: invalid value ate for foreign type iptr".
! record.mo:Expected error in mat record25: "make-r25-bar: invalid value #\9 for foreign type uptr".
! record.mo:Expected error in mat record25: "make-r25-bar: invalid value 10 for foreign type float".
! record.mo:Expected error in mat record25: "make-r25-bar: invalid value 11.0+0.0i for foreign type double".
record.mo:Expected error in mat record25: "incorrect number of arguments to #<procedure make-r25-bar>".
! record.mo:Expected error in mat record25: "make-r25-bar: invalid value 12.0 for foreign type long-long".
! record.mo:Expected error in mat record25: "make-r25-bar: invalid value 13.0 for foreign type unsigned-long-long".
! record.mo:Expected error in mat record25: "set-r25-bar-a!: invalid value 3.0 for foreign type int".
! record.mo:Expected error in mat record25: "set-r25-bar-b!: invalid value 3.0 for foreign type unsigned".
! record.mo:Expected error in mat record25: "set-r25-bar-c!: invalid value 3.0 for foreign type unsigned-int".
! record.mo:Expected error in mat record25: "set-r25-bar-d!: invalid value 3.0 for foreign type short".
! record.mo:Expected error in mat record25: "set-r25-bar-e!: invalid value 3.0 for foreign type unsigned-short".
! record.mo:Expected error in mat record25: "set-r25-bar-f!: invalid value 3.0 for foreign type long".
! record.mo:Expected error in mat record25: "set-r25-bar-g!: invalid value 3.0 for foreign type unsigned-long".
! record.mo:Expected error in mat record25: "set-r25-bar-h!: invalid value 3.0 for foreign type iptr".
! record.mo:Expected error in mat record25: "set-r25-bar-i!: invalid value 3.0 for foreign type uptr".
! record.mo:Expected error in mat record25: "set-r25-bar-j!: invalid value 3 for foreign type float".
! record.mo:Expected error in mat record25: "set-r25-bar-k!: invalid value 3 for foreign type double".
! record.mo:Expected error in mat record25: "set-r25-bar-m!: invalid value 3.0 for foreign type char".
! record.mo:Expected error in mat record25: "set-r25-bar-n!: invalid value 3.0 for foreign type wchar".
! record.mo:Expected error in mat record25: "set-r25-bar-o!: invalid value 3.0 for foreign type fixnum".
! record.mo:Expected error in mat record25: "set-r25-bar-p!: invalid value 3.0 for foreign type void*".
! record.mo:Expected error in mat record25: "set-r25-bar-r!: invalid value 3.0 for foreign type long-long".
! record.mo:Expected error in mat record25: "set-r25-bar-s!: invalid value 3.0 for foreign type unsigned-long-long".
! record.mo:Expected error in mat record25: "set-r25-bar-a!: invalid value <int> for foreign type int".
! record.mo:Expected error in mat record25: "set-r25-bar-a!: invalid value <-int> for foreign type int".
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".
***************
*** 7674,7709 ****
record.mo:Expected error in mat r6rs-records-procedural: "make-record-constructor-descriptor: record constructor descriptor #<record constructor descriptor> is not for parent of record type #<record type grand-child>".
record.mo:Expected error in mat r6rs-records-procedural: "make-record-type-descriptor: cannot extend sealed record type #<record type bar>".
record.mo:Expected error in mat r6rs-records-syntactic: "invalid syntax point".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure constructor>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure constructor>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure constructor>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure predicate>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure predicate>".
record.mo:Expected error in mat r6rs-records-syntactic: "variable point-x-set! is not bound".
record.mo:Expected error in mat r6rs-records-syntactic: "variable point-y-set! is not bound".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure accessor>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure accessor>".
record.mo:Expected error in mat r6rs-records-syntactic: "record-mutator: field 0 of #<record type point> is immutable".
record.mo:Expected error in mat r6rs-records-syntactic: "record-mutator: field 1 of #<record type point> is immutable".
record.mo:Expected error in mat r6rs-records-syntactic: "invalid syntax point".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure constructor>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure constructor>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure constructor>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure predicate>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure predicate>".
record.mo:Expected error in mat r6rs-records-syntactic: "variable point-x-set! is not bound".
record.mo:Expected error in mat r6rs-records-syntactic: "variable point-y-set! is not bound".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure accessor>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure accessor>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure mutator>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure mutator>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure mutator>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure mutator>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure mutator>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure mutator>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure mutator>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure mutator>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure mutator>".
record.mo:Expected error in mat r6rs-records-syntactic: "record-rtd: #<ex3> is not a record".
record.mo:Expected error in mat r6rs-records-syntactic: "record-rtd: #<ex3> is not a record".
record.mo:Expected error in mat r6rs-records-syntactic: "parent record type is sealed ex3".
--- 7674,7709 ----
record.mo:Expected error in mat r6rs-records-procedural: "make-record-constructor-descriptor: record constructor descriptor #<record constructor descriptor> is not for parent of record type #<record type grand-child>".
record.mo:Expected error in mat r6rs-records-procedural: "make-record-type-descriptor: cannot extend sealed record type #<record type bar>".
record.mo:Expected error in mat r6rs-records-syntactic: "invalid syntax point".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure make-point>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure make-point>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure make-point>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure point?>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure point?>".
record.mo:Expected error in mat r6rs-records-syntactic: "variable point-x-set! is not bound".
record.mo:Expected error in mat r6rs-records-syntactic: "variable point-y-set! is not bound".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure point-x>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure point-y>".
record.mo:Expected error in mat r6rs-records-syntactic: "record-mutator: field 0 of #<record type point> is immutable".
record.mo:Expected error in mat r6rs-records-syntactic: "record-mutator: field 1 of #<record type point> is immutable".
record.mo:Expected error in mat r6rs-records-syntactic: "invalid syntax point".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure make-point>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure make-point>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure make-point>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure point?>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure point?>".
record.mo:Expected error in mat r6rs-records-syntactic: "variable point-x-set! is not bound".
record.mo:Expected error in mat r6rs-records-syntactic: "variable point-y-set! is not bound".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure point-x>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure point-y>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure frob-widget-set!>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure frob-widget-set!>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure frob-widget-set!>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure frob-widget-set!>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure frob-widget-set!>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure frob-widget-set!>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure setwid!>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure setwid!>".
! record.mo:Expected error in mat r6rs-records-syntactic: "incorrect number of arguments to #<procedure setwid!>".
record.mo:Expected error in mat r6rs-records-syntactic: "record-rtd: #<ex3> is not a record".
record.mo:Expected error in mat r6rs-records-syntactic: "record-rtd: #<ex3> is not a record".
record.mo:Expected error in mat r6rs-records-syntactic: "parent record type is sealed ex3".