aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-analy.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/i-analy.boot')
-rw-r--r--src/interp/i-analy.boot4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-analy.boot b/src/interp/i-analy.boot
index 54d576b1..c54043c5 100644
--- a/src/interp/i-analy.boot
+++ b/src/interp/i-analy.boot
@@ -1,6 +1,6 @@
-- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd.
-- All rights reserved.
--- Copyright (C) 2007-2011, Gabriel Dos Reis.
+-- Copyright (C) 2007-2012, Gabriel Dos Reis.
-- All rights reserved.
--
-- Redistribution and use in source and binary forms, with or without
@@ -370,7 +370,7 @@ bottomUpIdentifier(t,id) ==
expr:= objVal u
om := objMode(u)
(om ~= $EmptyMode) and (om isnt ['RuleCalled,.]) =>
- $genValue or GENSYMP(id) =>
+ $genValue or gensym?(id) =>
null tar => [om]
(r := resolveTM(om,tar)) => [r]
[om]