Fix filter condition to only exclude #false

cogs/r5rs.scm

@@ -41,6 +41,8 @@
 (check-equal? "Parsing octal" #o0777 511)
 (check-equal? "Parsing binary" #b0110 6)
 
+(check-equal? "filter treats lists as true" (filter (lambda (n) (list 1 2)) (list 1 2)) '(1 2))
+
 (check-equal?
  "Symbols are interned correctly - lists should use the existing symbols that have been interned"
  (eq? 'definitely-hasnt-been-seen-before

crates/steel-core/src/steel_vm/transducers.rs

@@ -267,9 +267,8 @@ impl<'global, 'a> VmCore<'a> {
 
                             match res {
                                 Ok(k) => match k {
-                                    SteelVal::BoolV(true) => Some(Ok(arg)),
                                     SteelVal::BoolV(false) => None,
-                                    _ => None,
+                                    _ => Some(Ok(arg)),
                                 },
                                 Err(e) => Some(Err(e)),
                             }