fix backward scan

lem-project · Jul 16, 2023 · a35ed0b · a35ed0b
1 parent bd0b18d
commit a35ed0b
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/src/base/syntax-scan.lisp b/src/base/syntax-scan.lisp
@@ -76,11 +76,9 @@
       count)))
 
 (defun inline-line-comment-p (point)
-  (with-point ((start point))
-    (line-start start)
-    (let ((pps-state (parse-partial-sexp start point)))
-      (when (pps-state-comment-p pps-state)
-        (move-point point (pps-state-token-start-point pps-state))))))
+  (let ((pps-state (syntax-ppss point)))
+    (when (pps-state-comment-p pps-state)
+      (move-point point (pps-state-token-start-point pps-state)))))
 
 (defun %skip-comment-forward (point)
   (multiple-value-bind (n pair)