aboutsummaryrefslogtreecommitdiff
path: root/src/interp/g-cndata.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-04-22 02:42:48 +0000
committerdos-reis <gdr@axiomatics.org>2008-04-22 02:42:48 +0000
commita8469b11f4b06fd70bf1e2082fcd0016de428053 (patch)
tree2ef2d7419ab531414dcf0fe4deb33feaf3b062ff /src/interp/g-cndata.boot
parentd2883391871a704dd5c5d9a28c947d5a54784b48 (diff)
downloadopen-axiom-a8469b11f4b06fd70bf1e2082fcd0016de428053.tar.gz
* interp/br-data.boot: Tidy.
* interp/br-util.boot: Likewise. * interp/c-doc.boot: Likewise. * interp/cattable.boot: Likewise. * interp/clammed.boot: Likewise. * interp/define.boot: Likewise. * interp/g-cndata.boot: Likewise. * interp/g-util.boot: Likewise. * interp/ht-util.boot: Likewise. * interp/i-map.boot: Likewise. * interp/modemap.boot: Likewise. * interp/nrungo.boot: Likewise. * interp/rulesets.boot: Likewise. * interp/slam.boot: Likewise. * interp/i-spec1.boot: Likewise. * interp/Makefile.pamphlet (br-util.$(FASLEXT)): Don't compile as Old Boot. (bc-solve.$(FASLEXT)): Likewise. (ht-util.$(FASLEXT)): Likewise. (rulesets.$(FASLEXT)): Likewise. (i-object.$(FASLEXT)): Likewise. (i-util.$(FASLEXT)): Likewise. (nrunfast.$(FASLEXT)): Likewise. (nrungo.$(FASLEXT)): Likewise. (iterator.$(FASLEXT)): Likewise. (cattable.$(FASLEXT)): Likewise. (c-doc.$(FASLEXT)): Likewise. (posit.$(FASLEXT)): Likewise. (modemap.$(FASLEXT)): Likewise. (slam.$(FASLEXT)): Likewise. (clammed.$(FASLEXT)): Likewise. (g-opt.$(FASLEXT)): Likewise. (g-error.$(FASLEXT)): Likewise. (pathname.$(FASLEXT)): Likewise. (g-util.$(FASLEXT)): Likewise. (g-cndata.$(FASLEXT)): Likewise. * boot/tokens.boot: Remove renaming of NOT to NULL, when compiling Old Boot.
Diffstat (limited to 'src/interp/g-cndata.boot')
-rw-r--r--src/interp/g-cndata.boot8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/g-cndata.boot b/src/interp/g-cndata.boot
index 373abac0..d7042859 100644
--- a/src/interp/g-cndata.boot
+++ b/src/interp/g-cndata.boot
@@ -1,6 +1,6 @@
--- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
+-- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd.
-- All rights reserved.
--- Copyright (C) 2007, Gabriel Dos Reis.
+-- Copyright (C) 2007-2008, Gabriel Dos Reis.
-- All rights reserved.
--
-- Redistribution and use in source and binary forms, with or without
@@ -15,7 +15,7 @@
-- the documentation and/or other materials provided with the
-- distribution.
--
--- - Neither the name of The Numerical ALgorithms Group Ltd. nor the
+-- - Neither the name of The Numerical Algorithms Group Ltd. nor the
-- names of its contributors may be used to endorse or promote products
-- derived from this software without specific prior written permission.
--
@@ -176,7 +176,7 @@ isNameOfType x ==
$doNotAddEmptyModeIfTrue:local:= true
(val := get(x,'value,$InteractiveFrame)) and
(domain := objMode val) and
- domain in $LangSupportTypes => true
+ member(domain,$LangSupportTypes) => true
y := opOf unabbrev x
constructor? y