diff --git a/scheme/base.sld b/scheme/base.sld index 292f0a5e..fdf892fa 100644 --- a/scheme/base.sld +++ b/scheme/base.sld @@ -950,6 +950,7 @@ body)))) (define (make-parameter init . o) ;; TODO: need to store/set value in the thread data parameter (param_objs), to make it thread-specific + ;; TODO: what will the key be? how do we look up the thread's value for this parameter object???? (let* ((converter (if (pair? o) (car o) (lambda (x) x))) (value (converter init)))