From c0f80aca887462749a7cdc4fcacc579ee59aa850 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 7 Sep 2008 20:13:42 +0000
Subject: 	* boot/parser.boot (bpImport): Invert syntax for importing
 foreign 	functions. 	* boot/strap/parser.clisp: Update. 	*
 interp/sys-os.boot: Change to new syntax throughout.

---
 src/boot/parser.boot | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'src/boot/parser.boot')

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
 
-- 
cgit v1.2.3