diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-09-07 20:13:42 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-09-07 20:13:42 +0000 |
| commit | c0f80aca887462749a7cdc4fcacc579ee59aa850 (patch) | |
| tree | f0e7543a797c0072415c80f36327f3b52309ec10 /src/boot/parser.boot | |
| parent | 18b7b4b5d3511211092796bd8d593d5c9debec02 (diff) | |
| download | open-axiom-c0f80aca887462749a7cdc4fcacc579ee59aa850.tar.gz | |
* boot/parser.boot (bpImport): Invert syntax for importing foreign
functions.
* boot/strap/parser.clisp: Update.
* interp/sys-os.boot: Change to new syntax throughout.
Diffstat (limited to 'src/boot/parser.boot')
| -rw-r--r-- | src/boot/parser.boot | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/boot/parser.boot b/src/boot/parser.boot index 87ade687..8bf5086d 100644 --- a/src/boot/parser.boot +++ b/src/boot/parser.boot @@ -462,10 +462,14 @@ bpModule() == ++ IMPORT QUOTE String bpImport() == bpEqKey "IMPORT" => + a := bpState() bpName() or bpTrap() - bpEqKey "FOR" => + bpEqPeek "COLON" => + bpRestore a (bpSignature() or bpTrap()) and - bpPush ImportSignature(bpPop2(), bpPop1()) + (bpEqKey "FOR" or bpTrap()) and + (bpName() or bpTrap()) and + bpPush ImportSignature(bpPop1(), bpPop1()) bpPush Import bpPop1() false |