From 698aa5abf97234248cf7f59216759d9cc0d2290b Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 23 May 2012 22:07:10 +0000
Subject: 	* interp/database.boot (%Constructor): New. 
 (makeConstructor): Likewise. 	(makeInitialDB): Tidy. 	* interp/daase.lisp
 (makeDB): Take two more parameters.  Build a 	%Constructor structure object
 too.

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

(limited to 'src/interp/c-util.boot')

diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot
index b8ec4c5f..21140ca3 100644
--- a/src/interp/c-util.boot
+++ b/src/interp/c-util.boot
@@ -50,7 +50,7 @@ module c_-util where
   registerConstructor: (%Symbol,%Env) -> %Env
   currentConstructor: %Env -> %Maybe %Symbol
   -- functor data manipulation
-  dbInfovec: %Constructor -> %Maybe %FunctorData
+  dbInfovec: %Symbol -> %Maybe %FunctorData
 
 --% Accessors of domain and category objects
 
-- 
cgit v1.2.3