diff options
author | dos-reis <gdr@axiomatics.org> | 2008-02-19 00:35:15 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-02-19 00:35:15 +0000 |
commit | 9fbb89443e0c88ee5e76d95a3eea2ac5ea9916b6 (patch) | |
tree | f1bad297451efd27a5d980854c120d28d775ab41 /src/interp/category.boot | |
parent | a415d56c7fe71b04b00c0bc0a78e256791b27cb9 (diff) | |
download | open-axiom-9fbb89443e0c88ee5e76d95a3eea2ac5ea9916b6.tar.gz |
* algebra/variable.spad.pamphlet (AnonymousFunction): Add new
functions `parameters' and `body'.
* algebra/domain.spad.pamphlet: Rename from algebra/domain.spad.
(Category): New category.
* algebra/Makefile.pamphlet (axiom_algebra_layer_0): Include
CATEGORY.o.
(DOMAIN.NRLIB/code.$(FASLEXT)): Remove rule.
* interp/trace.boot (transTraceItem): Use $LangSupportTypes.
* interp/sys-constants.boot ($None): New.
($Type): Likewise.
($LangSupportTypes): Likewise.
* interp/parse.boot (parseHas): Use $LangSupportTypes.
(parseHasRhs): Likewise.
* interp/i-spec2.boot (upLETtype): Use conceptualType.
(uptypeOf): Likewise.
(upwhere): Likewise.
(typeOfType): Remove.
* interp/i-spec1.boot (isDomainValuedVariable): Variables with
type Category and Type are domain valued too.
* interp/i-output.boot (output): Special case only Mode and Type.
* interp/i-funsel.boot (selectMms): Don't ignore modemaps with
category parameters.
* interp/i-coerce.boot (canCoerce1): Test for Category instead of
SubDomain Domain.
(canCoerceFrom0): Use $None and $Any.
(absolutelyCannotCoerce): Use $None.
(coerceInteractive): Use $LangSupportTypes.
(coerceInt1): Use $Any.
* interp/i-analy.boot (conceptualType): New.
(bottomUpType): Use it.
* interp/clammed.boot (isValidType): Use $LangSupportTypes.
* interp/g-cndata.boot (isNameOfType): Likewise.
* interp/category.boot (Category): Remove hacky definition.
* interp/buildom.boot ($noCategoryDomains): Domain now has a
Lisplib.
Diffstat (limited to 'src/interp/category.boot')
-rw-r--r-- | src/interp/category.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/category.boot b/src/interp/category.boot index 304b943f..5ba5fb2a 100644 --- a/src/interp/category.boot +++ b/src/interp/category.boot @@ -1,5 +1,7 @@ -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. -- All rights reserved. +-- Copyright (C) 2007-2008, Gabriel Dos Reis. +-- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without -- modification, are permitted provided that the following conditions are @@ -35,8 +37,6 @@ import '"g-util" -- Functions for building categories -Category() == nil --sorry to say, this hack is needed by isCategoryType - CategoryPrint(D,$e) == SAY "--------------------------------------" SAY "Name (and arguments) of category:" |