Import Debian changes 3a1-4.2debian/3a1-4.2

slib (3a1-4.2) unstable; urgency=low

  * Non-maintainer upload.
  * Add guile.init.local for use within the build dir, since otherwise we
    have an (earlier unnoticed) circular build-dep due to a difference
    between scm and guile.

slib (3a1-4.1) unstable; urgency=low

  * Non-maintainer upload.
  * Build-depend on guile-1.6 instead of scm, since the new version of
    scm is wedged in unstable (closes: #281809).

slib (3a1-4) unstable; urgency=low

  * Also check for expected creation on slibcat. (Closes: #240096)

slib (3a1-3) unstable; urgency=low

  * Also check for /usr/share/guile/1.6/slib before installing for guile
    1.6. (Closes: #239267)

slib (3a1-2) unstable; urgency=low

  * Add format.scm back into slib until gnucash stops using it.
  * Call guile-1.6 new-catalog (Closes: #238231)

slib (3a1-1) unstable; urgency=low

  * New upstream release
  * Remove Info section from doc-base file (Closes: #186950)
  * Remove period from end of description (linda, lintian)
  * html gen fixed upstream (Closes: #111778)

slib (2d4-2) unstable; urgency=low

  * Fix url for upstream source (Closes: #144981)
  * Fix typo in slib.texi (enquque->enqueue) (Closes: #147475)
  * Add build depends.

slib (2d4-1) unstable; urgency=low

  * New upstream.

slib (2d3-1) unstable; urgency=low

  * New upstream.
  * Remove texi2html call in debian/rules.  Now done upstream.  Add make
    html instead.
  * Changes to rules and doc-base to conform to upstream html gen
  * Clean up upstream makefile to make sure it cleans up after itself.

1 files changed, 20 insertions, 20 deletions

diff --git a/mwexpand.scm b/mwexpand.scm
index 9dea34b..07acf1d 100644
--- a/mwexpand.scm
+++ b/mwexpand.scm
@@ -29,7 +29,7 @@
 
 (define mw:quit             ; assigned by macwork:expand
   (lambda (v) v))
-
+;@
 (define (macwork:expand def-or-exp)
   (call-with-current-continuation
    (lambda (k)
@@ -329,30 +329,30 @@
 
 (define (mw:let-syntax exp env)
   (if (and (> (mw:safe-length exp) 2)
-	   (comlist:every (lambda (binding)
-		    (and (pair? binding)
-			 (symbol? (car binding))
-			 (pair? (cdr binding))
-			 (null? (cddr binding))))
-		    (cadr exp)))
+	   (mw:every (lambda (binding)
+		       (and (pair? binding)
+			    (symbol? (car binding))
+			    (pair? (cdr binding))
+			    (null? (cddr binding))))
+		     (cadr exp)))
       (mw:body (cddr exp)
-	      (mw:syntax-extend env
-				(map car (cadr exp))
-				(map (lambda (spec)
-				       (mw:compile-transformer-spec
-					spec
-					env))
-				     (map cadr (cadr exp)))))
+	       (mw:syntax-extend env
+				 (map car (cadr exp))
+				 (map (lambda (spec)
+					(mw:compile-transformer-spec
+					 spec
+					 env))
+				      (map cadr (cadr exp)))))
       (mw:error "Malformed let-syntax" exp env)))
 
 (define (mw:letrec-syntax exp env)
   (if (and (> (mw:safe-length exp) 2)
-	   (comlist:every (lambda (binding)
-		    (and (pair? binding)
-			 (symbol? (car binding))
-			 (pair? (cdr binding))
-			 (null? (cddr binding))))
-		    (cadr exp)))
+	   (mw:every (lambda (binding)
+		       (and (pair? binding)
+			    (symbol? (car binding))
+			    (pair? (cdr binding))
+			    (null? (cddr binding))))
+		     (cadr exp)))
       (let ((env (mw:syntax-extend env
 				   (map car (cadr exp))
 				   (map (lambda (id)