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

reformatting

Browse Source 
svn: r9170
This commit is contained in:
Eli Barzilay 2008-04-06 13:44:16 +00:00
parent 17012d98b6
commit 5ae133c211
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/planet/resolver.ss
View File

@ -489,8 +489,8 @@ subdirectory.
pkg))
(define (current-time)
(let ((date (seconds->date (current-seconds))))
(parameterize ((date-display-format 'rfc2822))
(let ([date (seconds->date (current-seconds))])
(parameterize ([date-display-format 'rfc2822])
(format "~a ~a:~a:~a"
(date->string date)
(date-hour date)
@ -537,7 +537,7 @@ subdirectory.
(pkg-spec-name pkg)
(current-time))
;; oh man is this a bad hack!
(parameterize ((current-namespace (make-namespace)))
(parameterize ([current-namespace (make-namespace)])
(let ([ipp (dynamic-require '(lib "setup/plt-single-installer.ss")
'install-planet-package)])
(ipp path the-dir (list owner (pkg-spec-name pkg)
@ -691,7 +691,7 @@ subdirectory.
(abort (format "Server internal error: ~a"
(apply string-append
(let loop ()
(let ((line (read-line ip)))
(let ([line (read-line ip)])
(if (eof-object? line)
'()
(list* line "\n" (loop))))))))]
@ -707,7 +707,7 @@ subdirectory.
;; do-require : path path symbol syntax -> symbol
;; requires the given filename, which must be a module, in the given path.
(define (do-require file-path package-path module-path stx load?)
(parameterize ((current-load-relative-directory package-path))
(parameterize ([current-load-relative-directory package-path])
((current-module-name-resolver) file-path module-path stx load?)))
(define *package-search-chain*
@ -727,7 +727,7 @@ subdirectory.
;; make-directory*/paths : path -> (listof path)
;; like make-directory*, but returns what directories it actually created
(define (make-directory*/paths dir)
(let ((dir (if (string? dir) (string->path dir) dir)))
(let ([dir (if (string? dir) (string->path dir) dir)])
(let-values ([(base name dir?) (split-path dir)])
(cond [(directory-exists? dir) '()]
[(directory-exists? base) (make-directory dir) (list dir)]