diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-30 18:55:21 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-30 18:55:21 +0000 |
| commit | 42cf0984b569e49060252e536c0c7e7aee469873 (patch) | |
| tree | c2cb31c68df04f75bfd9a490ae10b9c6cf795102 /src/interp/c-util.boot | |
| parent | 5770442f576aa0c1e389344a636f1e4edca1b136 (diff) | |
| download | open-axiom-42cf0984b569e49060252e536c0c7e7aee469873.tar.gz | |
* More cleanup
Diffstat (limited to 'src/interp/c-util.boot')
| -rw-r--r-- | src/interp/c-util.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index f3bb0bf1..30d4a769 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -380,7 +380,7 @@ intersectionContour(c,c') == for u in getDomainsInScope $e repeat if u is ["Union",:u'] and (and/[listMember?(v,u') for v in rest m]) then return m - --this loop will return NIL if not satisfied + --this loop will return nil if not satisfied addContour(c,E is [cur,:tail]) == [append!(fn(c,E),cur),:tail] where @@ -1133,7 +1133,7 @@ getFunctionReplacement name == ++ remove any replacement info possibly associated with `name'. clearReplacement name == - REMPROP(name,"SPADreplace") + property(name,"SPADreplace") := nil ++ Register the inlinable form of a function. registerFunctionReplacement(name,body) == |