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

better comment

Browse Source 
svn: r15190
This commit is contained in:
Eli Barzilay 2009-06-16 19:46:41 +00:00
parent dd2b287309
commit b99fcf27c6
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/setup/getinfo.ss
View File

@ -13,13 +13,14 @@
(map (lambda (x) (if (path? x) (path->string x) x))
coll-path))))
;; HACK
;; This requires the infotab reader, since otherwise the reader guard
;; below will be invoked on it too, and that will make it throw up.
;; One possible solution for this would be for the security guard to
;; be provided with the file in question. Another would be to force
;; all info files to use `#lang' which means that we'll be able to
;; query their module-language via the `get-info' protocol.
;; HACK:
;; This require is not used. It just requires the file, since
;; otherwise the reader guard below will be invoked on it too, and
;; that will make it throw up. One possible solution for this would
;; be for the security guard to be provided with the file in question.
;; Another would be to force all info files to use `#lang' which means
;; that we'll be able to query their module-language via the
;; `get-info' protocol.
(require (prefix-in !!!HACK!!! setup/infotab/lang/reader))
;; get-info/full : path -> info/#f