imaxima, xemacs and windows



 >Try the new version:
 ><http://ifa.au.dk/~harder/imaxima-0.5.3.tar.gz 
<http://ifa.au.dk/%7Eharder/imaxima-0.5.3.tar.gz>>;


Still it does nothing to the filenames.

------------------------------------------------------

(defun imaxima-subst-char-in-string (fromchar tochar string &optional 
inplace)
"Replace FROMCHAR with TOCHAR in STRING each time it occurs.
Unless optional argument INPLACE is non-nil, return a new string."
(let ((i (length string))
(newstr (if inplace string (copy-sequence string))))
(while (> i 0)
(setq i (1- i))
(if (eq (aref newstr i) fromchar)
(aset newstr i tochar)))
newstr))


(when (eq system-type 'windows-nt)
(setq psfilename (imaxima-subst-char-in-string "\\" "/" psfilename))
(setq filename (imaxima-subst-char-in-string "\\" "/" filename)))

--------------------------------------------------

I don't know anything about lisp programming, so i have no clue what's 
wrong with the above.

Osmo