diff options
-rw-r--r-- | src/ChangeLog | 2 | ||||
-rw-r--r-- | src/interp/sys-utility.boot | 9 |
2 files changed, 7 insertions, 4 deletions
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. |