aboutsummaryrefslogtreecommitdiff
path: root/src/interp/br-data.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/br-data.boot')
-rw-r--r--src/interp/br-data.boot4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/br-data.boot b/src/interp/br-data.boot
index 45d947b1..1951754f 100644
--- a/src/interp/br-data.boot
+++ b/src/interp/br-data.boot
@@ -1,6 +1,6 @@
-- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd.
-- All rights reserved.
--- Copyright (C) 2007-2014, Gabriel Dos Reis.
+-- Copyright (C) 2007-2015, Gabriel Dos Reis.
-- All rights reserved.
--
-- Redistribution and use in source and binary forms, with or without
@@ -463,7 +463,7 @@ getImports conname == --called by mkUsersHashTable
u := [doImport(i,template)
for i in 5..(maxIndex template) | test] where
test() == template.i is [op,:.] and ident? op
- and not (op in '(Mapping Union Record Enumeration CONS QUOTE local %closure))
+ and not (op in '(Mapping Union Record Enumeration CONS QUOTE local %constant))
doImport(x,template) ==
x is [op,:args] =>
op = 'QUOTE or op = '%eval => first args