Changeset 7 in project

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:

• demo (added)
• demo/demo.html (added)
• demo/demo.scm (added)
• demo/demo.setup (added)
• demo/doc.scm (added)
• egg-post-commit.scm (modified) (1 diff)
• futures/futures.html (modified) (1 diff)
• generalised-case/generalised-case.html (modified) (1 diff)
• kanren (added)
• kanren/chicken-specific.scm (added)
• kanren/kanren-runtime.scm (added)
• kanren/kanren-term.scm (added)
• kanren/kanren.scm (added)
• kanren/kanren.setup (added)
• kanren/mini-kanren-runtime.scm (added)
• kanren/mini-kanren.scm (added)
• kanren/mini-kanren.setup (added)
• rss/rss.html (modified) (1 diff)
• rss/rss.scm (modified) (1 diff)

egg-post-commit.scm

@@ -168 +168 @@
                        (alist-ref 'file meta) 
                        (error "no `egg' or `file' property in meta info" meta))) 
-              (files (alist-ref 'files meta)) )
+              (files (alist-ref 'files meta)) 
+              (ufile (car egg)) )
          (pp meta)
          (print "Creating egg...")
-         (when files
-           (change-directory eggname)
-           (system* "tar cfz ../~a ~a" (car egg) (string-intersperse files))
-           (change-directory "..") )
+         (cond (files
+                (change-directory eggname)
+                (system* "tar cfz ../~a ~a" (car egg) (string-intersperse files))
+                (change-directory "..") )
+               (else
+                (set! ufile (make-pathname eggname (car egg))) ) )
          (let ((hfile (make-pathname eggname eggname "html")))
            (when (file-exists? hfile)
              (set! eggfiles (cons hfile eggfiles))))
-         (set! eggfiles (cons (car egg) eggfiles)) ) )
+         (set! eggfiles (cons ufile eggfiles)) ) )
      eggnames)
     (print "Creating index page...")

futures/futures.html

@@ -160 +160 @@
 <tt>force</tt> will return the result(s) of the future expression.</p>
 <p>If the argument is not a future, then the usual semantics of 
-<tt>force</tt> apply.</p></dd>
-<dt class="definition">
-<strong>procedure:</strong> (future-complete? FUTURE)</dt>
-<dd>
-<p>Returns 
-<tt>#t</tt> if the future has completed execution, or if an exception occurred during its evaluation, or 
-<tt>#f</tt> otherwise.</p></dd>
-<dt class="definition">
-<strong>procedure:</strong> (future-failed? FUTURE)</dt>
-<dd>
-<p>Returns 
-<tt>#t</tt> if an exception occurred during evaluation of the future or 
-<tt>#f</tt> otherwise.</p></dd>
-<dt class="definition">
-<strong>procedure:</strong> (future-condition FUTURE)</dt>
-<dd>
-<p>Returns the error-condition if an exception occurred during evaluation of the future or 
-<tt>#f</tt> if the future is still executing or executed without an error.</p></dd></dl></div>
+<tt>force</tt> apply.</p></dd></dl></div>
 <div class="section">
 <h3>License</h3>

generalised-case/generalised-case.html

@@ -18 +18 @@
 <h3>Version:</h3>
 <ul>
+<li>1.2 Fix in macro by Peter Bex
 <li>1.1 Apply some optimisations [Thanks to Christian Jaeger]</li>
 <li>1.0</li>

rss/rss.html

@@ -39 +39 @@
 <h3>Version:</h3>
 <ul>
+<li>1.1 Small fix in <code>rss:item=?</code> by Daishi Kato
 <li>1.0
 </ul>

rss/rss.scm

@@ -38 +38 @@
   (or (and-let* ([g1 (rss:item-attribute i1 'guid)]
                  [g2 (rss:item-attribute i2 'guid)] )
-        (string=? i1 i2) )
+        (string=? g1 g2) )
       (equal? i1 i2) ) )