Making css-selectors typecheck. Still fails to compile due to Issue #114

.
eholk · Mar 22, 2014 · b20b57c · b20b57c
1 parent 79b6737
commit b20b57c
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/test/css-selectors.kfc b/test/css-selectors.kfc
@@ -57,7 +57,7 @@
       ((Selector selector)
        (matches-selector? (Node tag children) selector path (lambda (node) #t)))
       ((Alternate rule selector)
-       (or (matches? (Node tag children) rule)
+       (or (matches? (Node tag children) rule path)
            (matches-selector? (Node tag children)
                               selector
                               path
@@ -82,8 +82,8 @@
     (let ((selector1 (Selector (Symbol 0)))
           (node1 (leaf-node 0))
           (selector2 (Selector (Sequence (Symbol 0)
-                                        (Symbol 1))))
-          (node2 (Node 0 (vector (leaf-node 1)) (EmptyList))))
+                                         (Symbol 1))))
+          (node2 (Node 0 (vector (leaf-node 1)))))
       (println (matches? node1 selector1 (EmptyList)))
       (println (matches? node2 selector2 (EmptyList))))
     0))