diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/interp/compiler.boot | 6 |
2 files changed, 7 insertions, 3 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 80a6cde8..82ef78c4 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2008-07-20 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * interp/compiler.boot (compNot): Rename from compileNot. + 2008-07-15 Gabriel Dos Reis <gdr@cs.tamu.edu> * input/pat.input.pamphlet (square): Define square an operatpr. diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 24b80131..e8621c03 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -1145,8 +1145,8 @@ compImport(["import",:doms],m,e) == --% etc. ++ compile a logical negation form `(not ...)'. -compileNot: (%Form,%Mode,%Env) -> %Maybe %Triple -compileNot(x,m,e) == +compNot: (%Form,%Mode,%Env) -> %Maybe %Triple +compNot(x,m,e) == x isnt ["not", y] => nil -- ??? For the time being compiler values cannot handle operations -- ??? selected through general modemaps, and their semantics @@ -1744,7 +1744,7 @@ for x in [["|", :"compSuchthat"],_ ["leave", :"compLeave"],_ ["LET", :"compSetq"],_ ["MDEF", :"compMacro"],_ - ["not", :"compileNot"],_ + ["not", :"compNot"],_ ["pretend", :"compPretend"],_ ["Record", :"compCat"],_ ["RecordCategory", :"compConstructorCategory"],_ |