diff options
author | dos-reis <gdr@axiomatics.org> | 2011-12-10 18:54:17 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-12-10 18:54:17 +0000 |
commit | 49fc7b2f58f56ea7c9aa8169be3dfcc22b818be2 (patch) | |
tree | b9475624cbe821fff9753a08ef614396ffe8f2e4 /src/boot/strap/parser.clisp | |
parent | 1bee5e2ddcac5cd3a168f5f70a754fd8bee34021 (diff) | |
download | open-axiom-49fc7b2f58f56ea7c9aa8169be3dfcc22b818be2.tar.gz |
* boot/parser.boot (bpArgtypeList): Accept mapping types.
* boot/ast.boot (bfType): New.
* boot/translator.boot (genDeclaration): Use it.
* boot/utility.boot (every?): New. Export.
(any?): Likewise.
(takeWhile): Lilkewise.
Diffstat (limited to 'src/boot/strap/parser.clisp')
-rw-r--r-- | src/boot/strap/parser.clisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/strap/parser.clisp b/src/boot/strap/parser.clisp index a91db6cc..f6799dbf 100644 --- a/src/boot/strap/parser.clisp +++ b/src/boot/strap/parser.clisp @@ -494,7 +494,7 @@ T) (T NIL))) -(DEFUN |bpArgtypeList| () (|bpTuple| #'|bpApplication|)) +(DEFUN |bpArgtypeList| () (|bpTuple| #'|bpSimpleMapping|)) (DEFUN |bpMapping| () (AND (|bpParenthesized| #'|bpArgtypeList|) (|bpEqKey| 'ARROW) |