Changeset 7 in project


Ignore:
Timestamp:
11/03/05 14:23:07 (14 years ago)
Author:
felix winkelmann
Message:

g.case and rss fixes, fix in post-commit script for single-file case

Files:
14 added
5 edited

Legend:

Unmodified
Added
Removed
  • egg-post-commit.scm

    r5 r7  
    168168                       (alist-ref 'file meta)
    169169                       (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)) )
    171172         (pp meta)
    172173         (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))) ) )
    177180         (let ((hfile (make-pathname eggname eggname "html")))
    178181           (when (file-exists? hfile)
    179182             (set! eggfiles (cons hfile eggfiles))))
    180          (set! eggfiles (cons (car egg) eggfiles)) ) )
     183         (set! eggfiles (cons ufile eggfiles)) ) )
    181184     eggnames)
    182185    (print "Creating index page...")
  • futures/futures.html

    r3 r7  
    160160<tt>force</tt> will return the result(s) of the future expression.</p>
    161161<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>
    180163<div class="section">
    181164<h3>License</h3>
  • generalised-case/generalised-case.html

    r1 r7  
    1818<h3>Version:</h3>
    1919<ul>
     20<li>1.2 Fix in macro by Peter Bex
    2021<li>1.1 Apply some optimisations [Thanks to Christian Jaeger]</li>
    2122<li>1.0</li>
  • rss/rss.html

    r1 r7  
    3939<h3>Version:</h3>
    4040<ul>
     41<li>1.1 Small fix in <code>rss:item=?</code> by Daishi Kato
    4142<li>1.0
    4243</ul>
  • rss/rss.scm

    r1 r7  
    3838  (or (and-let* ([g1 (rss:item-attribute i1 'guid)]
    3939                 [g2 (rss:item-attribute i2 'guid)] )
    40         (string=? i1 i2) )
     40        (string=? g1 g2) )
    4141      (equal? i1 i2) ) )
    4242
Note: See TracChangeset for help on using the changeset viewer.