diff options
author | dos-reis <gdr@axiomatics.org> | 2011-05-02 01:02:57 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-05-02 01:02:57 +0000 |
commit | 1906e73ab030ad23f1f6269acfed69703c8c40d6 (patch) | |
tree | b00af81c96b09e67a5634aa0e21d3b9a9ea6419d /src/interp/slam.boot | |
parent | 786cd98c9ab4543bb9d4a901a3d71497dd858aa5 (diff) | |
download | open-axiom-1906e73ab030ad23f1f6269acfed69703c8c40d6.tar.gz |
more cleanup
Diffstat (limited to 'src/interp/slam.boot')
-rw-r--r-- | src/interp/slam.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/slam.boot b/src/interp/slam.boot index c62a03d1..8afcb904 100644 --- a/src/interp/slam.boot +++ b/src/interp/slam.boot @@ -423,7 +423,7 @@ clearLocalModemaps x == compileInteractive fn == if $InteractiveMode then startTimingProcess 'compilation - if fn is [.,[bindOp,.,.]] and bindOp in $AbstractionOperator then + if fn is [.,[bindOp,.,.]] and abstractionOperator? bindOp then fn := [first fn,declareUnusedParameters second fn] if $reportCompilation then sayBrightlyI bright '"Generated LISP code for function:" |