aboutsummaryrefslogtreecommitdiff
path: root/src/interp/htsetvar.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-08-04 13:56:52 +0000
committerdos-reis <gdr@axiomatics.org>2011-08-04 13:56:52 +0000
commit9a593e3b395c1ba0c6036760c12713d7485f8c54 (patch)
treedd8eadbf07dde50ca15d6aa4181c902ad7b09d3c /src/interp/htsetvar.boot
parente77d30ccf1b663aaa6ec1e017fa8e31f3296afeb (diff)
downloadopen-axiom-9a593e3b395c1ba0c6036760c12713d7485f8c54.tar.gz
cleanup
Diffstat (limited to 'src/interp/htsetvar.boot')
-rw-r--r--src/interp/htsetvar.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/htsetvar.boot b/src/interp/htsetvar.boot
index 14c5dee1..058fcc8c 100644
--- a/src/interp/htsetvar.boot
+++ b/src/interp/htsetvar.boot
@@ -301,7 +301,7 @@ translateYesNoToTrueFalse x ==
chkNameList x ==
u := bcString2ListWords x
parsedNames := [ncParseFromString x for x in u]
- and/[IDENTP x for x in parsedNames] => parsedNames
+ and/[ident? x for x in parsedNames] => parsedNames
'"Please enter a list of identifiers separated by blanks"
chkPosInteger s ==