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

doc clarifications (PR 9307) and arity issue (PR 9025)

Browse Source 
svn: r9855

original commit: 4effd7b8973373d6e6f280cb15bfd79c082ac066
This commit is contained in:
Matthew Flatt 2008-05-15 17:29:49 +00:00
parent ec81ffebfc
commit 7ed5ac833f
1 changed files with 7 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/mzlib/thread.ss
View File

@ -41,18 +41,13 @@
(lambda ()
(init)
(loop))))
(lambda new-state
(let ([num (length new-state)])
(unless (procedure-arity-includes? f num)
(raise
(make-exn:fail:contract:arity
(format "<procedure-from-consumer-thread>: consumer procedure arity is ~e; provided ~s argument~a"
(procedure-arity f) num (if (= 1 num) "" "s"))
(current-continuation-marks)))))
(semaphore-wait protect)
(set! front-state (cons new-state front-state))
(semaphore-post protect)
(semaphore-post sema)))))
(procedure-reduce-arity
(lambda new-state
(semaphore-wait protect)
(set! front-state (cons new-state front-state))
(semaphore-post protect)
(semaphore-post sema))
(procedure-arity f)))))
(define/kw (run-server port-number handler connection-timeout
#:optional