a little more unsafety.

dyoo · Nov 10, 2012 · 99792ff · 99792ff
1 parent 0bd740c
commit 99792ff
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 5 deletions.
diff --git a/collects/scribble/base-render.rkt b/collects/scribble/base-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<%>)

diff --git a/collects/scribble/html-properties.rkt b/collects/scribble/html-properties.rkt
@@ -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))
diff --git a/collects/scribble/html-render.rkt b/collects/scribble/html-render.rkt
@@ -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))