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