suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
2daf225cab
racket/mats/patch-compile-0-f-t-f
dyb 2daf225cab committing a handful of changes, none of which should be particularly 
controversial, unless I damaged something in the process of integrating
them with other recent changes.  the user's guide and release notes
have been updated as well to reflect the changes of interest to end
users.
- the body of load-library is now wrapped in a $pass-time with
  to show the time spent loading libraries separately from the time
  spent in expand.
    syntax.ss
- interpret now plays the pass-time game
    interpret.ss
- added compile-time-value? predicate and
  compile-time-value-value accessor
    syntax.ss, primdata.ss,
    8.ms, primvars.ms, root-experr*
- $pass-stats now returns accurrate stats for the currently timed
  pass.
    7.ss
- compile-whole-program and compile-whole-library now propagate
  recompile info from the named wpo file to the object file
  to support maybe-compile-program and maybe-compile-library in
  the case where compile-whole-{program,library} overwrites the
  original object file.
    compile.ss,
    7.ms, mat.ss, primvars.ms
- replaced the ancient and unusable bintar with one that creates
  a useful tarball for binary installs
    bintar
- generated Mf-install InstallBin (InstallLib, InstallMan) now
  correctly indirects through InstallPrefix if the --installbin
  (--installlib, --installman) configure flag is not present.
    src/configure
- removed definition of generate-procedure-source-information
    patch.ss
- guardian tconc cells are now allocated in generation 0 in the hope
  that they can be released more quickly.
    gc.c
- added ftype-guardian syntax: (ftype-guardian A) creates a new
  guardian for ftype pointers of type A, the first base field (or
  one of the first base fields in the case of unions) of which must
  be a word-sized integer with native endianness representing a
  reference count.  ftype pointers are registered with and retrieved
  from the guardian just like objects are registered with and
  retrieved from any guardian.  the difference is that the garbage
  collector decrements the reference count before resurrecting an
  ftype pointer and resurrects only those whose reference counts
  become zero, i.e., are ready for deallocation.
    ftype.ss, cp0.ss, cmacros.ss, cpnanopass.ss, prims.ss, primdata.ss,
    gc.c,
    4.ms, root-experr*
- fixed a bug in automatic recompilation handling of missing include
  files specified with absolute pathnames or pathnames starting with
  "./" or "..": was erroring out in file-modification-time with a
  file-not-found or other exception rather than recompiling.
    syntax.ss,
    7.ms, root-experr*, patch*
- changed inline vector-for-each and string-for-each code to
  put the last call to the procedure in tail position, as was
  already done for the library definitions and for the inline
  code for for-each.
    cp0.ss,
    5_4.ms, 5_6.ms
- the compiler now generates better inline code for the bytevector
  procedure.  instead of one byte memory write for each argument,
  it writes up to 4 (32-bit machines) or 8 (64-bit machines) bytes
  at a time, which almost always results in fewer instructions and
  fewer writes.
    cpnanopass.ss,
    bytevector.ms
- packaged unchanging implicit reader arguments into a single record
  to reduce the number of arguments.
    read.ss
- recoded run-vector to handle zero-length vectors.  it appears
  we're not presently generating empty vectors (representing empty
  groups), but the fasl format permits them.
    7.ss

original commit: 7be1d190de7171f74a1ee71e348d3e6310392686
2019-02-11 20:06:42 -08:00

382 lines
36 KiB
Plaintext
Raw Blame History

*** errors-compile-0-f-f-f 2019-02-11 17:18:14.000000000 -0800
--- errors-compile-0-f-t-f 2019-02-11 16:37:31.000000000 -0800
***************
*** 125,131 ****
3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable a".
3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable c".
3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable m".
! 3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable a".
3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable y".
3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable a".
3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable a".
--- 125,131 ----
3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable a".
3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable c".
3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable m".
! 3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable b".
3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable y".
3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable a".
3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable a".
***************
*** 144,150 ****
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".
--- 144,150 ----
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".
***************
*** 191,200 ****
3.mo:Expected error in mat mrvs: "returned three values to single value return context".
3.mo:Expected error in mat mrvs: "returned three values to single value return context".
3.mo:Expected error in mat mrvs: "returned zero values to single value return context".
! 3.mo:Expected error in mat mrvs: "incorrect number of values received in multiple value context".
! 3.mo:Expected error in mat mrvs: "returned zero values to single value return context".
! 3.mo:Expected error in mat mrvs: "incorrect number of values received in multiple value context".
! 3.mo:Expected error in mat mrvs: "incorrect number of values received in multiple value context".
3.mo:Expected error in mat mrvs: "variable $mrvs-foo is not bound".
3.mo:Expected error in mat mrvs: "attempt to apply non-procedure 17".
3.mo:Expected error in mat mrvs: "returned two values to single value return context".
--- 191,200 ----
3.mo:Expected error in mat mrvs: "returned three values to single value return context".
3.mo:Expected error in mat mrvs: "returned three values to single value return context".
3.mo:Expected error in mat mrvs: "returned zero values to single value return context".
! 3.mo:Expected error in mat mrvs: "incorrect argument count in call (call-with-values (lambda () 5 (values 2)) (lambda (x y) (+ x y)))".
! 3.mo:Expected error in mat mrvs: "incorrect argument count in call (call-with-values values (lambda (x) x))".
! 3.mo:Expected error in mat mrvs: "incorrect argument count in call (call-with-values values (lambda (x y) x))".
! 3.mo:Expected error in mat mrvs: "incorrect argument count in call (call-with-values f (lambda (x y) x))".
3.mo:Expected error in mat mrvs: "variable $mrvs-foo is not bound".
3.mo:Expected error in mat mrvs: "attempt to apply non-procedure 17".
3.mo:Expected error in mat mrvs: "returned two values to single value return context".
***************
*** 3702,3708 ****
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".
--- 3702,3708 ----
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".
***************
*** 7169,7176 ****
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)".
--- 7169,7176 ----
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)".
***************
*** 7178,7192 ****
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".
--- 7178,7192 ----
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".
***************
*** 7199,7224 ****
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".
--- 7199,7224 ----
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".
***************
*** 7349,7387 ****
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".
--- 7349,7387 ----
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".
***************
*** 7396,7452 ****
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".
! record.mo:Expected error in mat r6rs-records-procedural: "incorrect number of arguments to #<procedure constructor>".
! record.mo:Expected error in mat r6rs-records-procedural: "incorrect number of arguments to #<procedure constructor>".
! record.mo:Expected error in mat r6rs-records-procedural: "incorrect number of arguments to #<procedure>".
! record.mo:Expected error in mat r6rs-records-procedural: "incorrect number of arguments to #<procedure>".
! record.mo:Expected error in mat r6rs-records-procedural: "incorrect number of arguments to #<procedure>".
! record.mo:Expected error in mat r6rs-records-procedural: "incorrect number of arguments to #<procedure>".
! record.mo:Expected error in mat r6rs-records-procedural: "incorrect number of arguments to #<procedure constructor>".
! record.mo:Expected error in mat r6rs-records-procedural: "incorrect number of arguments to #<procedure constructor>".
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".
! record.mo:Expected error in mat r6rs-records-syntactic: "#<record of type point> is not of type #<record type point>".
! record.mo:Expected error in mat r6rs-records-syntactic: "#<record of type cpoint> is not of type #<record type point>".
! record.mo:Expected error in mat r6rs-records-syntactic: "#<record of type cpoint> is not of type #<record type cpoint>".
! record.mo:Expected error in mat r6rs-records-syntactic: "#<record of type cpoint> is not of type #<record type cpoint>".
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: "#<record of type cpoint> is not of type #<record type cpoint>".
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".
--- 7396,7452 ----
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".
! record.mo:Expected error in mat r6rs-records-procedural: "incorrect number of arguments to #<procedure n>".
! record.mo:Expected error in mat r6rs-records-procedural: "incorrect number of arguments to #<procedure n>".
! record.mo:Expected error in mat r6rs-records-procedural: "incorrect number of arguments to #<procedure pcons>".
! record.mo:Expected error in mat r6rs-records-procedural: "incorrect number of arguments to #<procedure pcons>".
! record.mo:Expected error in mat r6rs-records-procedural: "incorrect argument count in call (ccons 1)".
! record.mo:Expected error in mat r6rs-records-procedural: "incorrect argument count in call (ccons 1 2 3)".
! record.mo:Expected error in mat r6rs-records-procedural: "incorrect argument count in call (n (+ z 7) w "what?")".
! record.mo:Expected error in mat r6rs-records-procedural: "incorrect argument count in call ((p x 17) y (quote #(oops)))".
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".
! record.mo:Expected error in mat r6rs-records-syntactic: "point-x: #<record of type point> is not of type #<record type point>".
! record.mo:Expected error in mat r6rs-records-syntactic: "point-x: #<record of type cpoint> is not of type #<record type point>".
! record.mo:Expected error in mat r6rs-records-syntactic: "cpoint-rgb: #<record of type cpoint> is not of type #<record type cpoint>".
! record.mo:Expected error in mat r6rs-records-syntactic: "cpoint-rgb: #<record of type cpoint> is not of type #<record type cpoint>".
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: "cpoint-rgb: #<record of type cpoint> is not of type #<record type cpoint>".
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".
Reference in New Issue View Git Blame Copy Permalink