Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
bootfiles and a couple of files I accidentally dropped from Matthhew'…
…s changes
  • Loading branch information
dybvig committed Mar 24, 2017
1 parent 20ee3ae commit 89085a0
Show file tree
Hide file tree
Showing 28 changed files with 23 additions and 2 deletions.
3 changes: 3 additions & 0 deletions LOG
Expand Up @@ -426,3 +426,6 @@
5_1.ss, newhash.ss, primdata.ss,
record.ms, root-experr*,
objects.stex
- adding dropped changes
record.ss,
root-experr*
Binary file modified boot/a6le/petite.boot
Binary file not shown.
Binary file modified boot/a6le/scheme.boot
Binary file not shown.
Binary file modified boot/a6nt/petite.boot
Binary file not shown.
Binary file modified boot/a6nt/scheme.boot
Binary file not shown.
Binary file modified boot/a6osx/petite.boot
Binary file not shown.
Binary file modified boot/a6osx/scheme.boot
Binary file not shown.
Binary file modified boot/i3le/petite.boot
Binary file not shown.
Binary file modified boot/i3le/scheme.boot
Binary file not shown.
Binary file modified boot/i3nt/petite.boot
Binary file not shown.
Binary file modified boot/i3nt/scheme.boot
Binary file not shown.
Binary file modified boot/i3osx/petite.boot
Binary file not shown.
Binary file modified boot/i3osx/scheme.boot
Binary file not shown.
Binary file modified boot/ta6le/petite.boot
Binary file not shown.
Binary file modified boot/ta6le/scheme.boot
Binary file not shown.
Binary file modified boot/ta6nt/petite.boot
Binary file not shown.
Binary file modified boot/ta6nt/scheme.boot
Binary file not shown.
Binary file modified boot/ta6osx/petite.boot
Binary file not shown.
Binary file modified boot/ta6osx/scheme.boot
Binary file not shown.
Binary file modified boot/ti3le/petite.boot
Binary file not shown.
Binary file modified boot/ti3le/scheme.boot
Binary file not shown.
Binary file modified boot/ti3nt/petite.boot
Binary file not shown.
Binary file modified boot/ti3nt/scheme.boot
Binary file not shown.
Binary file modified boot/ti3osx/petite.boot
Binary file not shown.
Binary file modified boot/ti3osx/scheme.boot
Binary file not shown.
9 changes: 9 additions & 0 deletions mats/root-experr-compile-0-f-f-f
Expand Up @@ -7248,6 +7248,15 @@ record.mo:Expected error in mat foreign-data: "foreign-set!: invalid value 17 fo
record.mo:Expected error in mat foreign-data: "foreign-set!: invalid value 17 for foreign type single-float".
record.mo:Expected error in mat foreign-data: "foreign-set!: invalid value 17 for foreign type double".
record.mo:Expected error in mat foreign-data: "foreign-set!: invalid value 17 for foreign type double-float".
record.mo:Expected error in mat record-equal/hash: "record-type-equal-procedure: 7 is not a record-type descriptor".
record.mo:Expected error in mat record-equal/hash: "record-type-equal-procedure: 7 is not a record-type descriptor".
record.mo:Expected error in mat record-equal/hash: "record-type-equal-procedure: 7 is not a procedure or #f".
record.mo:Expected error in mat record-equal/hash: "record-type-hash-procedure: 7 is not a record-type descriptor".
record.mo:Expected error in mat record-equal/hash: "record-type-hash-procedure: 7 is not a record-type descriptor".
record.mo:Expected error in mat record-equal/hash: "record-type-hash-procedure: 7 is not a procedure or #f".
record.mo:Expected error in mat record-equal/hash: "record-equal-procedure: 7 is not a record".
record.mo:Expected error in mat record-equal/hash: "record-equal-procedure: 7 is not a record".
record.mo:Expected error in mat record-equal/hash: "record-hash-procedure: 7 is not a record".
record.mo:Expected error in mat record21: "duplicate field names in record definition (define-record foo (x x))".
record.mo:Expected error in mat record21: "duplicate field names in record definition (define-record foo (x (mutable x)))".
record.mo:Expected error in mat record21: "duplicate field names in record definition (define-record foo (x) ((x 3)))".
Expand Down
9 changes: 9 additions & 0 deletions mats/root-experr-compile-2-f-f-f
Expand Up @@ -7248,6 +7248,15 @@ record.mo:Expected error in mat foreign-data: "foreign-set!: invalid value 17 fo
record.mo:Expected error in mat foreign-data: "foreign-set!: invalid value 17 for foreign type single-float".
record.mo:Expected error in mat foreign-data: "foreign-set!: invalid value 17 for foreign type double".
record.mo:Expected error in mat foreign-data: "foreign-set!: invalid value 17 for foreign type double-float".
record.mo:Expected error in mat record-equal/hash: "record-type-equal-procedure: 7 is not a record-type descriptor".
record.mo:Expected error in mat record-equal/hash: "record-type-equal-procedure: 7 is not a record-type descriptor".
record.mo:Expected error in mat record-equal/hash: "record-type-equal-procedure: 7 is not a procedure or #f".
record.mo:Expected error in mat record-equal/hash: "record-type-hash-procedure: 7 is not a record-type descriptor".
record.mo:Expected error in mat record-equal/hash: "record-type-hash-procedure: 7 is not a record-type descriptor".
record.mo:Expected error in mat record-equal/hash: "record-type-hash-procedure: 7 is not a procedure or #f".
record.mo:Expected error in mat record-equal/hash: "record-equal-procedure: 7 is not a record".
record.mo:Expected error in mat record-equal/hash: "record-equal-procedure: 7 is not a record".
record.mo:Expected error in mat record-equal/hash: "record-hash-procedure: 7 is not a record".
record.mo:Expected error in mat record21: "duplicate field names in record definition (define-record foo (x x))".
record.mo:Expected error in mat record21: "duplicate field names in record definition (define-record foo (x (mutable x)))".
record.mo:Expected error in mat record21: "duplicate field names in record definition (define-record foo (x) ((x 3)))".
Expand Down
4 changes: 2 additions & 2 deletions s/record.ss
Expand Up @@ -454,7 +454,7 @@
[else
(let ([rtd (apply #%$record base-rtd parent size pm mpm name
(cdr flds) flags uid #f extras)])
($sputprop uid '*rtd* rtd)
(with-tc-mutex ($sputprop uid '*rtd* rtd))
rtd)]))))

(set-who! $remake-rtd
Expand All @@ -479,7 +479,7 @@
'()
(cons ((csv7:record-field-accessor base-rtd n) rtd)
(f (fx+ n 1) (cdr ls)))))))])
($sputprop uid key rtd)
(with-tc-mutex ($sputprop uid key rtd))
rtd)))))))

(let ()
Expand Down

0 comments on commit 89085a0

Please sign in to comment.