Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-11-26 14:22:01 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Added support for .. in directory paths

Browse Source
This commit is contained in:
waldemar%netscape.com 2001-03-01 05:34:14 +00:00
parent 58c4444e8a
commit b320b02aac
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
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")