Changeset 7 in project
- Timestamp:
- 11/03/05 14:23:07 (15 years ago)
- Files:
-
- 14 added
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
egg-post-commit.scm
r5 r7 168 168 (alist-ref 'file meta) 169 169 (error "no `egg' or `file' property in meta info" meta))) 170 (files (alist-ref 'files meta)) ) 170 (files (alist-ref 'files meta)) 171 (ufile (car egg)) ) 171 172 (pp meta) 172 173 (print "Creating egg...") 173 (when files 174 (change-directory eggname) 175 (system* "tar cfz ../~a ~a" (car egg) (string-intersperse files)) 176 (change-directory "..") ) 174 (cond (files 175 (change-directory eggname) 176 (system* "tar cfz ../~a ~a" (car egg) (string-intersperse files)) 177 (change-directory "..") ) 178 (else 179 (set! ufile (make-pathname eggname (car egg))) ) ) 177 180 (let ((hfile (make-pathname eggname eggname "html"))) 178 181 (when (file-exists? hfile) 179 182 (set! eggfiles (cons hfile eggfiles)))) 180 (set! eggfiles (cons (car egg)eggfiles)) ) )183 (set! eggfiles (cons ufile eggfiles)) ) ) 181 184 eggnames) 182 185 (print "Creating index page...") -
futures/futures.html
r3 r7 160 160 <tt>force</tt> will return the result(s) of the future expression.</p> 161 161 <p>If the argument is not a future, then the usual semantics of 162 <tt>force</tt> apply.</p></dd> 163 <dt class="definition"> 164 <strong>procedure:</strong> (future-complete? FUTURE)</dt> 165 <dd> 166 <p>Returns 167 <tt>#t</tt> if the future has completed execution, or if an exception occurred during its evaluation, or 168 <tt>#f</tt> otherwise.</p></dd> 169 <dt class="definition"> 170 <strong>procedure:</strong> (future-failed? FUTURE)</dt> 171 <dd> 172 <p>Returns 173 <tt>#t</tt> if an exception occurred during evaluation of the future or 174 <tt>#f</tt> otherwise.</p></dd> 175 <dt class="definition"> 176 <strong>procedure:</strong> (future-condition FUTURE)</dt> 177 <dd> 178 <p>Returns the error-condition if an exception occurred during evaluation of the future or 179 <tt>#f</tt> if the future is still executing or executed without an error.</p></dd></dl></div> 162 <tt>force</tt> apply.</p></dd></dl></div> 180 163 <div class="section"> 181 164 <h3>License</h3> -
generalised-case/generalised-case.html
r1 r7 18 18 <h3>Version:</h3> 19 19 <ul> 20 <li>1.2 Fix in macro by Peter Bex 20 21 <li>1.1 Apply some optimisations [Thanks to Christian Jaeger]</li> 21 22 <li>1.0</li> -
rss/rss.html
r1 r7 39 39 <h3>Version:</h3> 40 40 <ul> 41 <li>1.1 Small fix in <code>rss:item=?</code> by Daishi Kato 41 42 <li>1.0 42 43 </ul> -
rss/rss.scm
r1 r7 38 38 (or (and-let* ([g1 (rss:item-attribute i1 'guid)] 39 39 [g2 (rss:item-attribute i2 'guid)] ) 40 (string=? i1 i2) )40 (string=? g1 g2) ) 41 41 (equal? i1 i2) ) ) 42 42
Note: See TracChangeset
for help on using the changeset viewer.