diff options
| author | Juan Manuel Tomás <jtomas1815@gmail.com> | 2025-11-24 07:14:53 -0300 |
|---|---|---|
| committer | Juan Manuel Tomás <jtomas1815@gmail.com> | 2025-11-24 07:15:08 -0300 |
| commit | 13525655b8a8577b0f1f467515ec259e85028b10 (patch) | |
| tree | 6d9965ecca56ce08c984505fad95962aba59ac62 /main.lisp | |
| parent | 2ebab36f8c689fa3e6f88cfc25cecd83848ca129 (diff) | |
| download | monparser-13525655b8a8577b0f1f467515ec259e85028b10.tar.gz monparser-13525655b8a8577b0f1f467515ec259e85028b10.zip | |
Diffstat (limited to 'main.lisp')
| -rw-r--r-- | main.lisp | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -9,8 +9,7 @@ (defun append-on-failure (p message) (lambda (start input) - (declare (ignore start)) - (let ((result (funcall p input input))) + (let ((result (funcall p start input))) (if (failure-p result) (make-failure :place (failure-place result) :message (concatenate 'string message (failure-message result)) |