Bommels05/Mozilla
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added support for .. in directory paths

Browse Source 
git-svn-id: svn://10.0.0.236/trunk@88282 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
waldemar%netscape.com
2001-03-01 05:34:14 +00:00
parent 338e5bbcb9
commit 474649b6f1
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
mozilla/js2/semantics/Main.lisp
View File

@@ -48,8 +48,8 @@
(loop
(let ((slash (position #\/ filename)))
(if slash
(progn
(push (subseq filename 0 slash) directories)
(let ((dir-name (subseq filename 0 slash)))
(push (if (equal dir-name "..") :up dir-name) directories)
(setq filename (subseq filename (1+ slash))))
(return (if directories
(make-pathname :directory (cons ':relative (nreverse directories)) :name filename #+lispworks :type #+lispworks "lisp")