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

cs: fix build with non-threaded scheme

Browse Source
This commit is contained in:
Matthew Flatt 2018-10-08 15:27:53 -06:00
parent 076684b123
commit 3acb1a5162
2 changed files with 32 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/src/cs/demo/io.ss
View File

@ -135,6 +135,7 @@
;; ---------------------------------------- ;; ----------------------------------------
(when (threaded?)
(let* ([place-symbols (make-hasheq)] (let* ([place-symbols (make-hasheq)]
[register-place-symbol! [register-place-symbol!
(lambda (sym proc) (lambda (sym proc)
@ -164,7 +165,7 @@
(place-channel-put pl f) (place-channel-put pl f)
(test (bytes-ref content 1) (place-channel-get pl)) (test (bytes-ref content 1) (place-channel-get pl))
(test (bytes-ref content 2) (read-byte f)) (test (bytes-ref content 2) (read-byte f))
(close-input-port f))))) (close-input-port f))))))
;; Thread can be GCed if it's block on a place channel with no writer ;; Thread can be GCed if it's block on a place channel with no writer
(let () (let ()

2
racket/src/cs/rumble/lock.ss
View File

@ -47,7 +47,7 @@
;; engine-based concurrency ;; engine-based concurrency
(define-syntax-rule (with-global-lock e ...) (define-syntax-rule (with-global-lock e ...)
(with-interrupts-disabled (with-interrupts-disabled
e))] e ...))]
[else [else
;; Using a Chez Scheme build with thread support; make hash-table ;; Using a Chez Scheme build with thread support; make hash-table
;; access thread-safe at that level for `eq?`- and `eqv?`-based ;; access thread-safe at that level for `eq?`- and `eqv?`-based