doc/syntax.tex: Delete (wrong) duplicate rule for <argument-declarator>.

[sod] / src / parser / scanner-proto.lisp

diff --git a/src/parser/scanner-proto.lisp b/src/parser/scanner-proto.lisp
index 8f27f895ea084c115629e549a66aee68665f1389..c6236c5868e58b75b42562b4b652b831d60529bd 100644 (file)
--- a/src/parser/scanner-proto.lisp
+++ b/src/parser/scanner-proto.lisp
@@ -104,7 +104,7 @@ (defmacro with-scanner-place ((place scanner) &body body)
       `(let ((,place (scanner-capture-place ,scanner)))
         ,@decls
         (unwind-protect (progn ,@body)
-          (scanner-release-place ,scanner ,place))))))
+          (when ,place (scanner-release-place ,scanner ,place)))))))
 
 ;;;--------------------------------------------------------------------------
 ;;; Character scanner protocol.