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

remove version dependency (fixes #1)

Browse Source
This commit is contained in:
Matthew Butterick 2016-06-09 22:30:31 -07:00
parent b83a09e6af
commit 7903287fa2
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
beautiful-racket-lib/br/main.rkt
View File

@ -28,11 +28,12 @@
(require racket/class) (require racket/class)
(define (indenter t pos) (define (indenter t pos)
(send t compute-racket-amount-to-indent pos (λ(x) (with-handlers ([exn:fail? (λ(exn) #f)]) ; this function won't work until gui-lib 1.26
(case x (send t compute-racket-amount-to-indent pos (λ(x)
[("with-pattern" "with-shared-id") 'lambda] (case x
[("define-macro") 'define] [("with-pattern" "with-shared-id") 'lambda]
[else #f])))) [("define-macro") 'define]
[else #f])))))
(define (my-get-info key default default-filter) (define (my-get-info key default default-filter)
(case key (case key

2
beautiful-racket-lib/info.rkt
View File

@ -4,5 +4,5 @@
(define version "0.01") (define version "0.01")
(define deps '("base" (define deps '("base"
"sugar" "sugar"
["gui-lib" #:version "1.26"])) ; for indenter fix "gui-lib"))
(define build-deps '("racket-doc" "rackunit-lib" "scribble-lib")) (define build-deps '("racket-doc" "rackunit-lib" "scribble-lib"))