diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-05-07 15:17:39 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-05-07 15:17:39 +0000 |
| commit | 30e90e4c85eb1fb101ed06b22802d36dbc0df2d2 (patch) | |
| tree | e5d4d8871981196f85a1038491a3a62372630a96 /src/interp/sys-utility.boot | |
| parent | 64dee33447f6db28cfe4d6abe92e51bf4e70a2c6 (diff) | |
| download | open-axiom-30e90e4c85eb1fb101ed06b22802d36dbc0df2d2.tar.gz | |
* interp/types.boot (%Integer): Alias for Lisp INTEGER class.
* interp/sys-utility.boot (getVMType): Integer is represented by
%Integer.
* interp/postpar.boot (postSignature): Don't ignore constants.
Diffstat (limited to 'src/interp/sys-utility.boot')
| -rw-r--r-- | src/interp/sys-utility.boot | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot index fa14650e..0c1d62e0 100644 --- a/src/interp/sys-utility.boot +++ b/src/interp/sys-utility.boot @@ -51,7 +51,7 @@ getVMType d == Byte => "%Byte" Character => "%Char" SingleInteger => "%Short" --- Integer => "%Bignum" + Integer => "%Integer" String => "%String" List => "%List" Vector => ["%Vector",getVMType second d'] @@ -59,7 +59,6 @@ getVMType d == Pair => "%Pair" otherwise => "%Thing" -- good enough, for now. - --% setDynamicBinding: (%Symbol,%Thing) -> %Thing |