src/parser/floc-proto.lisp: Restore missing argument.

This code path was clearly never exercised.

diff --git a/src/parser/floc-proto.lisp b/src/parser/floc-proto.lisp
index 372d609cb180a8064caf432f03e455739091f2a7..484fce05c044e69e8aa1c8cd6c6a71b228701cc0 100644 (file)
--- a/src/parser/floc-proto.lisp
+++ b/src/parser/floc-proto.lisp
@@ -165,7 +165,7 @@ (defun make-condition-with-location (default-type floc datum &rest arguments)
     (etypecase datum
       (condition-with-location datum)
       (condition (wrap datum))
     (etypecase datum
       (condition-with-location datum)
       (condition (wrap datum))

-      (symbol (apply #'make arguments))
+      (symbol (apply #'make datum arguments))

       ((or string function) (make default-type
                                  :format-control datum
                                  :format-arguments arguments)))))
       ((or string function) (make default-type
                                  :format-control datum
                                  :format-arguments arguments)))))