From ddb732dffb343c78b593c551fcdef53ec4a944a9 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 7 May 2019 12:49:31 -0700 Subject: [PATCH] windows start --- quad/quadwriter/lang-helper.rkt | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/quad/quadwriter/lang-helper.rkt b/quad/quadwriter/lang-helper.rkt index 811faa0c..763c04c0 100644 --- a/quad/quadwriter/lang-helper.rkt +++ b/quad/quadwriter/lang-helper.rkt @@ -36,9 +36,10 @@ (define (VIEW-RESULT) (define open-string (case (system-type 'os) - ('macosx "open ~a") - ('unix "xdg-open ~a &> /dev/null") - (else (error "Don't know how to open PDF file.")))) + ['macosx "open ~a"] + ['windows "start ~a"] + ['unix "xdg-open ~a &> /dev/null"] + [else (error "Don't know how to open PDF file.")])) (when (file-exists? pdf-path) (void (system (format open-string pdf-path))))) (module+ main