diff options
author | dos-reis <gdr@axiomatics.org> | 2008-09-22 14:37:26 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-09-22 14:37:26 +0000 |
commit | 581024db9368e3ab437a59887ea074b704f23b7c (patch) | |
tree | eafb9d9553c3c1c06cd2507afa9d06fa00be59c2 /src/boot/strap/parser.clisp | |
parent | ce18c80b41c0dc210d9bab1d0bfeadaf9845d853 (diff) | |
download | open-axiom-581024db9368e3ab437a59887ea074b704f23b7c.tar.gz |
* boot/parser.boot (bpReturn): Allow assignment.
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 baea8792..c6270474 100644 --- a/src/boot/strap/parser.clisp +++ b/src/boot/strap/parser.clisp @@ -783,7 +783,7 @@ (|bpPush| (|%Catch| (|bpPop1|))))) (DEFUN |bpReturn| () - (OR (AND (|bpEqKey| 'RETURN) (OR (|bpAnd|) (|bpTrap|)) + (OR (AND (|bpEqKey| 'RETURN) (OR (|bpAssign|) (|bpTrap|)) (|bpPush| (|bfReturnNoName| (|bpPop1|)))) (|bpThrow|) (|bpAnd|))) |