From 0bb3dc5a46dbb26964bb3acb5b30fdcf49b6a2bd Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 4 May 2008 07:10:18 +0000
Subject: 	* interp/sys-utility.boot (getVMType): Fix thinko.

---
 src/ChangeLog               | 2 ++
 src/interp/sys-utility.boot | 9 +++++----
 2 files changed, 7 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/ChangeLog b/src/ChangeLog
index 0af50697..bd8a8f69 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2008-05-04  Gabriel Dos Reis  <gdr@cs.tamu.edu>
 
+	* interp/sys-utility.boot (getVMType): Fix thinko.
+
 	* interp/c-util.boot (compilerMessage): Tidy.
 
 2008-05-01  Gabriel Dos Reis  <gdr@cs.tamu.edu>
diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot
index 1a97df33..fa14650e 100644
--- a/src/interp/sys-utility.boot
+++ b/src/interp/sys-utility.boot
@@ -43,18 +43,19 @@ import vmlisp
 ++ getVMType returns an approximation of the underlying object type
 ++ representation of a domain, as a Lisp type specifier as seen by
 ++ the runtime system.
+getVMType: %Shell -> %Form
 getVMType d ==
-  case devaluate d of
+  case (d' := devaluate d) of
     Void => "%Void"
     Boolean => "%Boolean"
     Byte => "%Byte"
     Character => "%Char"
     SingleInteger => "%Short"
-    Integer => "%Integer"
+--    Integer => "%Bignum"
     String => "%String"
     List => "%List"
-    Vector => "%Vector"
-    PrimitiveArray => "SIMPLE-ARRAY"
+    Vector => ["%Vector",getVMType second d']
+    PrimitiveArray => ["%SimpleArray", getVMType second d']
     Pair => "%Pair"
     otherwise => "%Thing"                 -- good enough, for now.
 
-- 
cgit v1.2.3