From 7903287fa23e9dc708aac16f48388d75cede91ec Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 9 Jun 2016 22:30:31 -0700 Subject: [PATCH] remove version dependency (fixes #1) --- beautiful-racket-lib/br/main.rkt | 11 ++++++----- beautiful-racket-lib/info.rkt | 2 +- 2 files changed, 7 insertions(+), 6 deletions(-) diff --git a/beautiful-racket-lib/br/main.rkt b/beautiful-racket-lib/br/main.rkt index ecd864d..331e598 100644 --- a/beautiful-racket-lib/br/main.rkt +++ b/beautiful-racket-lib/br/main.rkt @@ -28,11 +28,12 @@ (require racket/class) (define (indenter t pos) - (send t compute-racket-amount-to-indent pos (λ(x) - (case x - [("with-pattern" "with-shared-id") 'lambda] - [("define-macro") 'define] - [else #f])))) + (with-handlers ([exn:fail? (λ(exn) #f)]) ; this function won't work until gui-lib 1.26 + (send t compute-racket-amount-to-indent pos (λ(x) + (case x + [("with-pattern" "with-shared-id") 'lambda] + [("define-macro") 'define] + [else #f]))))) (define (my-get-info key default default-filter) (case key diff --git a/beautiful-racket-lib/info.rkt b/beautiful-racket-lib/info.rkt index c6a6300..8ce39f6 100644 --- a/beautiful-racket-lib/info.rkt +++ b/beautiful-racket-lib/info.rkt @@ -4,5 +4,5 @@ (define version "0.01") (define deps '("base" "sugar" - ["gui-lib" #:version "1.26"])) ; for indenter fix + "gui-lib")) (define build-deps '("racket-doc" "rackunit-lib" "scribble-lib"))