diff options
Diffstat (limited to 'src/boot')
| -rw-r--r-- | src/boot/ChangeLog | 5 | ||||
| -rw-r--r-- | src/boot/ast.boot.pamphlet | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/src/boot/ChangeLog b/src/boot/ChangeLog index 54c0e0fc..8e2680ec 100644 --- a/src/boot/ChangeLog +++ b/src/boot/ChangeLog @@ -1,3 +1,8 @@ +2007-11-18 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * ast.boot.pamphlet (bfReduce): Compute left reduction, not right + reduction. + 2007-11-17 Gabriel Dos Reis <gdr@cs.tamu.edu> * ast.boot.pamphlet ($bfCamming): Define as global. diff --git a/src/boot/ast.boot.pamphlet b/src/boot/ast.boot.pamphlet index ab47df8a..b4f6e76d 100644 --- a/src/boot/ast.boot.pamphlet +++ b/src/boot/ast.boot.pamphlet @@ -320,7 +320,7 @@ bfReduce(op,y)== init:=GET(op,"SHOETHETA") g:=bfGenSymbol() g1:=bfGenSymbol() - body:=['SETQ,g,[op,g1,g]] + body:=['SETQ,g,[op,g,g1]] if null init then g2:=bfGenSymbol() |