From b79e1543c220c230e3c88dbbee3837d9859f54bf Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 22 Sep 2008 00:02:53 +0000
Subject: 	* algebra/syntax.spad.pamphlet: Tie the recursive knots
 between 	syntax domains.

---
 src/interp/g-util.boot | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/interp')

diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot
index 13d2e36f..4640f06d 100644
--- a/src/interp/g-util.boot
+++ b/src/interp/g-util.boot
@@ -159,6 +159,7 @@ getTypeOfSyntax t ==
   op in '(%Import import) => '(ImportAst)
   op in '(%Signature SIGNATURE) => '(SignatureAst)
   op = "CATEGORY" => '(CategoryAst)
+  op = "where" => '(WhereAst)
   op = "[||]" => '(QuasiquoteAst)
   $Syntax
 
-- 
cgit v1.2.3