From dd14d434d1d7d06cd90a5a8a0fd1bef6cfffda8f Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 11 Dec 2010 23:15:24 +0000
Subject: 	* interp/i-syscmd.boot: Use try-finally expression instead of
 Lisp 	primitive UNWIND-PROJECT. 	* interp/int-top.boot: Likewise. 
 * interp/lisplib.boot: Likewise. 	* interp/server.boot: Likewise. 
 * boot/parser.boot (bpHandler): Allow semicolon separation.

---
 src/boot/parser.boot        | 2 +-
 src/boot/strap/parser.clisp | 4 +++-
 2 files changed, 4 insertions(+), 2 deletions(-)

(limited to 'src/boot')

diff --git a/src/boot/parser.boot b/src/boot/parser.boot
index 8212b965..4d475238 100644
--- a/src/boot/parser.boot
+++ b/src/boot/parser.boot
@@ -728,7 +728,7 @@ bpFinally() ==
 
 bpHandler key ==
   s := bpState()
-  bpEqKey "BACKSET" and bpEqKey key => true
+  (bpEqKey "BACKSET" or bpEqKey "SEMICOLON") and bpEqKey key => true
   bpRestore s
   false
 
diff --git a/src/boot/strap/parser.clisp b/src/boot/strap/parser.clisp
index 9cdd72cb..77744484 100644
--- a/src/boot/strap/parser.clisp
+++ b/src/boot/strap/parser.clisp
@@ -803,7 +803,9 @@
       (PROGN
         (SETQ |s| (|bpState|))
         (COND
-          ((AND (|bpEqKey| 'BACKSET) (|bpEqKey| |key|)) T)
+          ((AND (OR (|bpEqKey| 'BACKSET) (|bpEqKey| 'SEMICOLON))
+                (|bpEqKey| |key|))
+           T)
           (T (|bpRestore| |s|) NIL))))))
 
 (DEFUN |bpLeave| ()
-- 
cgit v1.2.3