suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

unbreak threads build

Browse Source 
original commit: 1848af27e73a644f008f73974b1946bb7ac47643
This commit is contained in:
Matthew Flatt 2018-01-07 09:16:58 -07:00
parent f4f0bfff11
commit 23094be32b
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
s/front.ss
View File

@ -104,6 +104,15 @@
(define enable-cross-library-optimization ($make-thread-parameter #t (lambda (x) (and x #t))))
(define-who current-generate-id
($make-thread-parameter
(lambda (sym)
(unless (symbol? sym) ($oops 'default-generate-id "~s is not a symbol" sym))
(gensym (symbol->string sym)))
(lambda (p)
(unless (procedure? p) ($oops who "~s is not a procedure" p))
p)))
(define machine-type
(lambda ()
(constant machine-type-name)))

9
s/record.ss
View File

@ -395,15 +395,6 @@
(rec predicate (lambda (x) ($sealed-record? x rtd)))
(rec predicate (lambda (x) (record? x rtd))))))
(set-who! current-generate-id
($make-thread-parameter
(lambda (sym)
(unless (symbol? sym) ($oops 'default-generate-id "~s is not a symbol" sym))
(gensym (symbol->string sym)))
(lambda (p)
(unless (procedure? p) ($oops who "~s is not a procedure" p))
p)))
(let ((base-rtd #!base-rtd))
(define (make-flags uid sealed? opaque? parent)
(fxlogor