Permalink
Browse files

a little more unsafety.

  • Loading branch information...
1 parent 0bd740c commit 99792ff0de052664dd51d7867950f923a6c27297 @dyoo committed Nov 10, 2012
Showing with 10 additions and 5 deletions.
  1. +1 −2 collects/scribble/base-render.rkt
  2. +7 −1 collects/scribble/html-properties.rkt
  3. +2 −2 collects/scribble/html-render.rkt
@@ -10,8 +10,7 @@
setup/path-relativize
file/convertible
net/url-structs
- "render-struct.rkt"
- racket/unsafe/ops)
+ "render-struct.rkt")
(provide render%
render<%>)
@@ -2,7 +2,8 @@
(require "private/provide-structs.rkt"
racket/contract/base
xml/xexpr
- net/url-structs)
+ net/url-structs
+ racket/unsafe/ops)
(provide-structs
[body-id ([value string?])]
@@ -21,3 +22,8 @@
[column-attributes ([assoc (listof (cons/c symbol? string?))])]
[head-extra ([xexpr xexpr/c])])
+
+
+(provide unsafe-css-addition-path unsafe-js-addition-path)
+(define (unsafe-css-addition-path a) (unsafe-struct-ref a 0))
+(define (unsafe-js-addition-path a) (unsafe-struct-ref a 0))
@@ -684,7 +684,7 @@
'css
(lambda (p) (part-whole-page? p ri))
css-addition?
- css-addition-path)
+ unsafe-css-addition-path)
(list style-file)
style-extra-files))
,(scribble-js-contents script-file (lookup-path script-file alt-paths))
@@ -700,7 +700,7 @@
'css
(lambda (p) (part-whole-page? p ri))
js-addition?
- js-addition-path))
+ unsafe-js-addition-path))
,(xml:comment "[if IE 6]><style type=\"text/css\">.SIEHidden { overflow: hidden; }</style><![endif]")
,@(for/list ([p (style-properties (part-style d))]
#:when (head-extra? p))

0 comments on commit 99792ff

Please sign in to comment.