[bug #58912] working-directory-pathname is not a parameter.

[Arthur A. Gleckler]

URL:
  <https://savannah.gnu.org/bugs/?58912>

                 Summary: working-directory-pathname is not a parameter.
                 Project: MIT/GNU Scheme
            Submitted by: aag
            Submitted on: Fri 07 Aug 2020 05:51:44 PM UTC
                Category: None
                Severity: 3 - Normal
                Priority: 5 - Normal
              Item Group: None
                  Status: None
                 Privacy: Public
             Assigned to: None
         Originator Name: 
        Originator Email: 
             Open/Closed: Open
         Discussion Lock: Any
                Keywords: 

    _______________________________________________________

Details:

Per the docs, I'm trying to switch from using with-working-directory-pathname
to using working-directory-pathname with parameterize.  Unfortunately, I get
this result:


1 ]=> (parameterize ((working-directory-pathname "/tmp/")) (lambda () 1))

;The object #[compiled-procedure 481 (working-directory-pathname "wrkdir" #x3)
#x1c #x106be11ec], passed as an argument to hash-table-ref, is not in the
correct range.
;To continue, call RESTART with an option number:
; (RESTART 1) => Return to read-eval-print level 1.

2 error> (parameter? working-directory-pathname)

;Value: #f

2 error>


It seems that *working-directory-pathname* is the underlying parameter, but
it's not bound in (user).

It looks like the reason for the distinction between the two bindings is that
the former implements a fallback for the latter when the working directory
hasn't explicitly been set.

Is there a reason that the working directory parameter can't be set  using the
value from the microcode primitive when the process starts?  That would solve
the problem.




    _______________________________________________________

Reply to this item at:

  <https://savannah.gnu.org/bugs/?58912>

_______________________________________________
  Message sent via Savannah
  https://savannah.gnu.org/