Re: [racket-users] Semaphore-count

On 9/4/2018 11:46 AM, George Neuner wrote: AFAIK there is no way to simply 'check' if the semaphore is available. I was wrong - there is a way using events: semaphore-peek-evt  can check whether a semaphore is ready without affecting its counter.

Re: [racket-users] How to tighten the contract on a function

On Wed, Sep 5, 2018 at 2:29 PM, Alexander McLin wrote: > Something like the following program: > > #lang racket > > (module foomod racket > (provide foo) > (define/contract (foo arg) (-> string? #t) #t)) > > (require 'foomod) > (provide (contract-out (foo (-> non-empty-string? #t > > I

Re: [racket-users] Racket and OS X Finder

The application-file-handler is exactly what I needed. Thank you! On Wednesday, September 5, 2018 at 11:24:01 AM UTC-7, Philip McGrath wrote: > > I have built toy application as a learning project that opens files in > Finder as a default app. I haven't worked on it in a while, so I may be >

Re: [racket-users] How to tighten the contract on a function

Something like the following program: #lang racket (module foomod racket (provide foo) (define/contract (foo arg) (-> string? #t) #t)) (require 'foomod) (provide (contract-out (foo (-> non-empty-string? #t On Tuesday, September 4, 2018 at 9:00:06 PM UTC-4, David K. Storrs wrote: > >

Re: [racket-users] Racket and OS X Finder

I have built toy application as a learning project that opens files in Finder as a default app. I haven't worked on it in a while, so I may be forgetting some things, but I'll report what I remember. It is a #lang racket/gui program, built by `raco setup` in response to

Re: [racket-users] How to tighten the contract on a function

What about reproviding foo and using contract-out to wrap foo in a new contract? On Tuesday, September 4, 2018 at 9:00:06 PM UTC-4, David K. Storrs wrote: > > > > On Tue, Sep 4, 2018 at 8:55 PM, Matthew Butterick > wrote: > >> >> On Sep 4, 2018, at 3:54 PM, David Storrs > > wrote: >> >> Say

[racket-users] Racket and OS X Finder

I've been messing around with getting a test application to open files from Finder in OS X as a default app. The program appears to be operating properly, except for the part where it tells me information about the file I double-clicked. I modified the app a little so that it would print out

RE: [racket-users] Semaphore-count

Hi Craig Allen Would something like the following work? Jos (define (make-sema n) (define-syntax-rule (with-counter-sema expr ...) (begin (semaphore-wait counter-sema) (define result (begin expr ...)) (semaphore-post counter-sema) result)) (define counter-sema (make-semaphore 1))