From afc7f65009d1bc682bc37bd96ddf5222ac37cc5b Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 15 Nov 2008 23:53:41 +0000
Subject: 	* interp/Makefile.pamphlet (OBJS): Remove cfuns.  Include 
 hashcode. 	* interp/cfuns.lisp: Delete.

---
 src/interp/c-util.boot | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

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

diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot
index 4e91e700..c680e8b9 100644
--- a/src/interp/c-util.boot
+++ b/src/interp/c-util.boot
@@ -113,6 +113,24 @@ wantArgumentsAsTuple: (%List,%Signature) -> %Boolean
 wantArgumentsAsTuple(args,sig) ==
   isHomoegenousVarargSignature sig and #args ^= #sig
 
+
+devaluate d ==
+  not REFVECP d => d
+  QSGREATERP(QVSIZE d,5) and getShellEntry(d,3) is ['Category] => 
+    getShellEntry(d,0)
+  QSGREATERP(QVSIZE d,0) =>
+    d':=getShellEntry(d,0)
+    isFunctor d' => d'
+    d
+  d
+ 
+devaluateList l == [devaluate d for d in l]
+ 
+devaluateDeeply x ==
+  VECP x => devaluate x
+  atom x => x
+  [devaluateDeeply y for y in x]
+
 --% Debugging Functions
  
 --CONTINUE() == continue()
-- 
cgit v1.2.3