diff options
Diffstat (limited to 'src/boot')
| -rw-r--r-- | src/boot/parser.boot | 2 | ||||
| -rw-r--r-- | src/boot/strap/parser.clisp | 4 |
2 files changed, 4 insertions, 2 deletions
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| () |