diff options
author | dos-reis <gdr@axiomatics.org> | 2008-10-31 20:39:01 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-10-31 20:39:01 +0000 |
commit | ad6ac4dc3c9662098ad38ca99cbf46d6315af52b (patch) | |
tree | c1d7e39c42275df67b63d44e7153625253cf3b39 /src | |
parent | a91178099e67db918d6da5c03c3c2564363c55f1 (diff) | |
download | open-axiom-ad6ac4dc3c9662098ad38ca99cbf46d6315af52b.tar.gz |
* boot/ast.boot (genECLnativeTranslation): Fix thinko.
Diffstat (limited to 'src')
-rw-r--r-- | src/ChangeLog | 4 | ||||
-rw-r--r-- | src/boot/ast.boot | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index e2bf2ea7..c3a50351 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2008-10-31 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * boot/ast.boot (genECLnativeTranslation): Fix thinko. + 2008-10-30 Gabriel Dos Reis <gdr@cs.tamu.edu> * interp/sys-macros.lisp (APPEND2): Remove. diff --git a/src/boot/ast.boot b/src/boot/ast.boot index d461bcd3..f9246218 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -1409,7 +1409,7 @@ genECLnativeTranslation(op,s,t,op') == args := nil argtypes := nil for x in s repeat - argtypes := [nativeReturnType x,:argtypes] + argtypes := [nativeArgumentType x,:argtypes] args := [GENSYM(),:args] argtypes := nreverse argtypes args := nreverse args |