diff options
author | dos-reis <gdr@axiomatics.org> | 2008-10-05 03:06:07 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-10-05 03:06:07 +0000 |
commit | 4da4e775ade14aa9e8c2d0b4b106e743e4d283a4 (patch) | |
tree | 19637c59f3b6bb3748c84edcc348ba68ee8614b7 /src/interp/sys-utility.boot | |
parent | 27362ea43a4c1da88e23e3014c0fcb66ef7a2cfc (diff) | |
download | open-axiom-4da4e775ade14aa9e8c2d0b4b106e743e4d283a4.tar.gz |
* interp/c-util.boot (isAtomicForm): New.
(replaceSimpleFunctions): Use it. Simplify back to original
implementation.
(proclaimCapsuleFunction): Constructor parameters are generic.
* interp/sys-utility.boot (getVMType): Handle wildcard.
* algebra/stream.spad.pamphlet: Don't build STREAM with
proclamation on -- it currently violates type rules.
Diffstat (limited to 'src/interp/sys-utility.boot')
-rw-r--r-- | src/interp/sys-utility.boot | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot index 20e84c18..3c820e9f 100644 --- a/src/interp/sys-utility.boot +++ b/src/interp/sys-utility.boot @@ -44,7 +44,9 @@ namespace BOOT ++ representation of a domain, as a Lisp type specifier as seen by ++ the runtime system. getVMType d == - IDENTP d => "%Thing" + IDENTP d => + d = "*" => d + "%Thing" STRINGP d => "%Thing" -- literal flag parameter case (d' := devaluate d) of Void => "%Void" |