diff options
Diffstat (limited to 'src/interp/ax.boot')
-rw-r--r-- | src/interp/ax.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/ax.boot b/src/interp/ax.boot index f70ad4bc..f9614d7e 100644 --- a/src/interp/ax.boot +++ b/src/interp/ax.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2008, Gabriel Dos Reis. +-- Copyright (C) 2007-2009, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -61,7 +61,7 @@ makeAxFile(filename, constructors) == axForms := [modemapToAx(modemap) for cname in constructors | (modemap:=getConstructorModemapFromDB cname) and - (not cname in '(Tuple Exit Type)) and + not (cname in '(Tuple Exit Type)) and not isDefaultPackageName cname] if $baseForms then axForms := [:$baseForms, :axForms] @@ -81,7 +81,7 @@ makeAxExportForm(filename, constructors) == axForms := [modemapToAx(modemap) for cname in constructors | (modemap:=getConstructorModemapFromDB cname) and - (not cname in '(Tuple Exit Type)) and + not (cname in '(Tuple Exit Type)) and not isDefaultPackageName cname] if $baseForms then axForms := [:$baseForms, :axForms] |