fix missing .plt in collapsed planet path

svn: r10177
This commit is contained in:
Matthew Flatt 2008-06-06 15:48:51 +00:00
parent 5f5c70eafb
commit f81d9ebf54

View File

@ -158,7 +158,7 @@
str str
(string-append str ".ss")))) (string-append str ".ss"))))
(,owner (,owner
,(car pkg+vers) ,(string-append (car pkg+vers) ".plt")
,@(if (null? (cdr pkg+vers)) ,@(if (null? (cdr pkg+vers))
null null
`(,(string->number (cadr pkg+vers)) `(,(string->number (cadr pkg+vers))