~ chicken-core (chicken-5) 6e0e99eb8a8635d4aedda361230f5a14df1bdcb4

commit 6e0e99eb8a8635d4aedda361230f5a14df1bdcb4
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Nov 17 02:30:38 2010 -0500
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Nov 17 02:30:38 2010 -0500

    llist-match fix

diff --git a/support.scm b/support.scm
index 8dd2e282..9d3d3f02 100644
--- a/support.scm
+++ b/support.scm
@@ -271,7 +271,7 @@
   (let loop ((llist llist) (args args))
     (cond ((null? llist) (null? args))
 	  ((symbol? llist))
-	  ((null? args) #f)
+	  ((null? args) (atom? llist))
 	  (else (loop (cdr llist) (cdr args))))))
 
 
@@ -692,7 +692,6 @@
 			   (not (eq? 'unknown (cdr val))))))
 		    ((assq 'inlinable plist))
 		    (lparams (node-parameters (cdr val)))
-		    ;;((get db (first lparams) 'simple)) 
 		    ((not (get db sym 'hidden-refs)))
 		    ((case (variable-mark sym '##compiler#inline)
 		       ((yes) #t)