Uncomment failing test

1 files changed, 10 insertions, 11 deletions

diff --git a/compiler/test.scm b/compiler/test.scm
index 6a122fd..8c810b5 100644
--- a/compiler/test.scm
+++ b/compiler/test.scm
@@ -380,17 +380,16 @@ Error if POLICY has more than one rule."
 ;;   where
 ;;   (string? name)
 
-;; (let ((parse-result (template-and-parse "newlist := site.names")))
-;;   (pretty-print (to-pretty-sexp parse-result))
-;;   (match (select-rule parse-result)
-;;     (($ <rule>
-;;         _default
-;;         ($ <head> _name _kind _lhs
-;;            ($ <reference>
-;;               (($ <variable-ref> "site")
-;;                ($ <constant> "names"))))
-;;         _body)
-;;      (test-assert #t))))
+(let ((parse-result (template-and-parse "newlist := site.names")))
+  (match (select-rule parse-result)
+    (($ <rule>
+        _default
+        ($ <head> _name _kind _lhs
+           ($ <reference>
+              (($ <variable-ref> "site")
+               ($ <constant> "names"))))
+        _body)
+     (test-assert #t))))
 
 ;; array           = "[" term { "," term } "]"
 ;;