|
|
@ -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
|
|
|
|