Permalink
Browse files

Fix RECORD-SOURCE-LOCATION

  • Loading branch information...
1 parent 0ac6822 commit 23a3bd73ad564ede270c263b2dd3f9f5a9d8e1c9 @metawilm committed Feb 3, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 parser/grammar.lisp
View
@@ -126,8 +126,8 @@ Value should be a (weak) EQ hash table: (make-weak-key-hash-table :test 'eq).")
(setf (gethash outcome *python-form->source-location*) loc))
(existing
(unless (<= start (getf existing :start) (getf existing :end) end)
- "Duplicate location for ~A, and new [~A, ~A] does not overlap old [~A, ~A]"
- outcome start end (getf existing :start) (getf existing :end)))))))
+ (error "Duplicate location for ~A, and new [~A, ~A] does not overlap old [~A, ~A]"
+ outcome start end (getf existing :start) (getf existing :end))))))))
(defun contour-source-location (terms)
(when *python-form->source-location*

0 comments on commit 23a3bd7

Please sign in to comment.