diff options
author | dos-reis <gdr@axiomatics.org> | 2009-09-25 03:15:11 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-09-25 03:15:11 +0000 |
commit | 7704713134cb251be6129f38833930228e09eee2 (patch) | |
tree | 9a6e84cf718748ea7c1d7b47fd4f42c2635654e1 /src/interp/ax.boot | |
parent | d351d1076c6a506fc4bbbb01d26e86c187096ef8 (diff) | |
download | open-axiom-7704713134cb251be6129f38833930228e09eee2.tar.gz |
* boot/ast.boot (bfMember): New.
(bfInfApplication): Use it.
* boot/tokens.boot: Don't rename IN.
* interp/ax.boot (makeAxFile): Fix thinko.
(makeAxExportForm): Likewise.
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] |