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

use define-runtime-path for SRFI-29 bundles sub-directory

Browse Source 
svn: r6955
This commit is contained in:
Matthew Flatt 2007-07-25 12:39:03 +00:00
parent 0fadb67646
commit 90c5bea2e3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/srfi/29/localization.ss
View File

@ -23,7 +23,8 @@
;;; Modified for PLT Scheme by: Francisco Solsona <solsona@acm.org> ;;; Modified for PLT Scheme by: Francisco Solsona <solsona@acm.org>
(module localization mzscheme (module localization mzscheme
(require (lib "etc.ss")) (require (lib "etc.ss")
(lib "runtime-path.ss"))
(provide current-language current-country current-locale-details (provide current-language current-country current-locale-details
load-bundle! store-bundle! declare-bundle! load-bundle! store-bundle! declare-bundle!
localized-template localized-template
@ -94,8 +95,7 @@
(current-locale-details (get-from-locale 'details)))) (current-locale-details (get-from-locale 'details))))
;; System bundles are here: ;; System bundles are here:
(define system-bundles (build-path (define-runtime-path system-bundles "bundles")
(collection-path "srfi") "29" "bundles"))
;; bundle-specifier: (listof symbol) ;; bundle-specifier: (listof symbol)
;; i.e. package + locale, (package-name [language] [country] [details ...]) ;; i.e. package + locale, (package-name [language] [country] [details ...])