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

guard against missing scribble and syntax-color libraries

Browse Source 
we don't want an actual dependency from at-exp-lib to those libraries,
so when they aren't present, don't just crash, but instead fall back
to the defaults passed to the get-info procs
This commit is contained in:
Robby Findler 2017-01-27 11:12:36 -06:00
parent 0e12201c4d
commit a5118f7525
2 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pkgs/at-exp-lib/at-exp/lang/reader.rkt
View File

@ -28,15 +28,15 @@
(lambda (proc)
(lambda (key defval)
(define (fallback) (if proc (proc key defval) defval))
(define (try-dynamic-require mod export)
(or (with-handlers ([exn:fail? (λ (x) #f)])
(dynamic-require mod export))
(fallback)))
(define (try-dynamic-require lib export)
(with-handlers ([exn:missing-module?
(λ (x) (fallback))])
(dynamic-require lib export)))
(case key
[(color-lexer)
(try-dynamic-require 'syntax-color/scribble-lexer 'scribble-lexer)]
[(drracket:indentation)
(dynamic-require 'scribble/private/indentation 'determine-spaces)]
(try-dynamic-require 'scribble/private/indentation 'determine-spaces)]
[(drracket:keystrokes)
(dynamic-require 'scribble/private/indentation 'keystrokes)]
(try-dynamic-require 'scribble/private/indentation 'keystrokes)]
[else (fallback)])))))

10
pkgs/at-exp-lib/scribble/base/reader.rkt
View File

@ -23,13 +23,17 @@
;; Settings that apply just to the surface syntax:
(define (scribble-base-reader-info)
(lambda (key defval default)
(define (try-dynamic-require lib export)
(with-handlers ([exn:missing-module?
(λ (x) (default key defval))])
(dynamic-require lib export)))
(case key
[(color-lexer)
(dynamic-require 'syntax-color/scribble-lexer 'scribble-inside-lexer)]
(try-dynamic-require 'syntax-color/scribble-lexer 'scribble-inside-lexer)]
[(drracket:indentation)
(dynamic-require 'scribble/private/indentation 'determine-spaces)]
(try-dynamic-require 'scribble/private/indentation 'determine-spaces)]
[(drracket:keystrokes)
(dynamic-require 'scribble/private/indentation 'keystrokes)]
(try-dynamic-require 'scribble/private/indentation 'keystrokes)]
[(drracket:default-extension) "scrbl"]
[else (default key defval)])))