diff options
author | dos-reis <gdr@axiomatics.org> | 2008-05-04 07:10:18 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-05-04 07:10:18 +0000 |
commit | 0bb3dc5a46dbb26964bb3acb5b30fdcf49b6a2bd (patch) | |
tree | 640a1481aec98dca04d37b338e863b1d981a4900 | |
parent | da01d4d44eeecc005bad20b4cada7916ac8d3365 (diff) | |
download | open-axiom-0bb3dc5a46dbb26964bb3acb5b30fdcf49b6a2bd.tar.gz |
* interp/sys-utility.boot (getVMType): Fix thinko.
-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. |