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

better comment

Browse Source 
svn: r15599
This commit is contained in:
Eli Barzilay 2009-07-28 14:49:59 +00:00
parent d1f78ae378
commit 66ab1f15ff
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/setup/setup-unit.ss
View File

@ -305,9 +305,12 @@
(define (check-again-all given-ccs) (define (check-again-all given-ccs)
#| #|
;; This code is better than using marker files, but an older version of it ;; This code is better than using marker files, but an older version of it
;; relied on the obligatory existence of an "info.ss" file. That is no ;; relied on the obligatory existence of an "info.ss" file to implement
;; longer required, so it needs to identify directories and that is ;; `file-or-directory-identity'. That is no longer required, so it needs
;; currently not available. So use the code below instead. ;; to identify directories and that is currently not available. So use the
;; code below it instead. Perhaps there will be some robust way to do this
;; in the future, eg -- for directories, use the identity of their first
;; file.
(define all-cc+ids (define all-cc+ids
(map (lambda (cc) (map (lambda (cc)
(cons cc (file-or-directory-identity (cc-path cc)))) (cons cc (file-or-directory-identity (cc-path cc))))