Commits

Greg Slepak committed 843811b

preliminary stuff to path.lsp

Comments (0)

Files changed (1)

example-site/dragonfly-framework/plugins-inactive/path.lsp

 	)
 )
 
-(define (del-comp path , lst)
+(define (del-comp path remove-leading-slash , lst)
 	(set 'lst (parse path "/"))
 	(if (empty? lst)
 		path ; we were given ""
 					(= (length lst) 1)
 					(push "" lst)
 				)
+				(when remove-leading-slash
+					(pop lst)
+				)
 			)
 			(join lst "/")
 		)