diff options
| author | Fernando Borretti <fernando@borretti.me> | 2024-02-06 07:21:32 +1100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-02-06 07:21:32 +1100 |
| commit | 9dab7ca8f803e899354cc528566282646e748414 (patch) | |
| tree | 890e2232322be1a1a2a0718404d35d83cf0a8d68 | |
| parent | eb38ff738a0cb6f3d5c98568414d27022067aa4a (diff) | |
| parent | b2e16dc0bf2eddbc62f0834f7ee460c24447a4cb (diff) | |
Merge pull request #19 from caffe3/fix-negative-numbers
Fix negative numbers
| -rw-r--r-- | src/parser.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/parser.lisp b/src/parser.lisp index 3875fa1..da9f671 100644 --- a/src/parser.lisp +++ b/src/parser.lisp @@ -94,10 +94,10 @@ (:lambda (digits) (text digits))) -(defrule integer (and (or octal hex dec) (? integer-suffix)) - (:destructure (num suff &bounds start-pos) +(defrule integer (and (? sign) (or octal hex dec) (? integer-suffix)) + (:destructure (sign num suff &bounds start-pos) (declare (ignore suff)) - (make-instance '<integer> :text num :line (line start-pos)))) + (make-instance '<integer> :text (text sign num) :line (line start-pos)))) (defrule sign (or #\+ #\-)) |