Fix thinko: parameter-converter in infinite loop for forwarding parameter.

This was probably not noticed because it was never called and not documented.

diff --git a/src/runtime/dynamic.scm b/src/runtime/dynamic.scm
index 471110f115d6ccf2d06e1d771b65875d2f744279..e9c17881835e2b39cd3e0db32b2ee86f7d24d3a5 100644 (file)
--- a/src/runtime/dynamic.scm
+++ b/src/runtime/dynamic.scm
@@ -127,7 +127,7 @@ USA.
   (let ((metadata (parameter-metadata parameter)))
     (if (forwarder? metadata)
        (let ((converter1 (forwarder-convert-to metadata))
-             (converter2 (parameter-converter parameter)))
+             (converter2 (parameter-converter (forwarder-parameter metadata))))
          (lambda (value)
            (converter2 (converter1 value))))
        (metadata-converter metadata))))