From 663089e7f95f4901a46939ef34c60982dd5aadda Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 14 Apr 2008 01:59:56 +0000
Subject: Various cleanups.

---
 src/interp/mark.boot | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/interp/mark.boot')

diff --git a/src/interp/mark.boot b/src/interp/mark.boot
index 4f40971d..addbd96a 100644
--- a/src/interp/mark.boot
+++ b/src/interp/mark.boot
@@ -1248,7 +1248,7 @@ changeToEqualEqual lines ==
     word := INTERN SUBSTRING(x, n + 4, m - n - 4)
     expandedWord := macroExpand(word,$e)
     not (MEMQ(word, '(Record Union Mapping)) 
-      or GETDATABASE(opOf expandedWord,'CONSTRUCTORFORM)) => nil
+      or getConstructorFormFromDB opOf expandedWord) => nil
     sayMessage '"Converting input line:"
     sayMessage ['"WAS: ", x]
     x . (n + 1) := char '_= ;
@@ -1339,7 +1339,7 @@ markConstructorForm name ==  --------> same as getConstructorForm
   name = 'UntaggedUnion => '(Union A B)
   name = 'Record  => '(Record (_: a A) (_: b B))
   name = 'Mapping => '(Mapping T S)
-  GETDATABASE(name,'CONSTRUCTORFORM)
+  getConstructorFromDB name
 
 --======================================================================
 --                new path functions
-- 
cgit v1.2.3