Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 21:59:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Removing duplicate definition.

Browse source
This commit is contained in:
Alex Shinn 2014-06-11 23:36:49 +09:00
parent c5179f2271
commit c0775c23ed
2 changed files with 4 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lib/chibi/snow/commands.scm
View file

@ -906,7 +906,10 @@
(package-libraries pkg))))
(install-package-meta-info
impl cfg
`(,@pkg (installed-files ,@installed-files)))))))))))
`(,@(remove (lambda (x)
(and (pair? x) (eq? 'installed-files (car x))))
pkg)
(installed-files ,@installed-files)))))))))))
(define (install-for-implementation repo impl cfg pkgs)
(for-each (lambda (pkg) (install-package repo impl cfg pkg)) pkgs))

8
lib/chibi/snow/package.scm
View file

@ -201,14 +201,6 @@
(else (map (lambda (x) (or (string->number x) (string->symbol x)))
(string-split str #\.)))))
(define (library-name->path name)
(and (pair? name)
(let lp ((ls (cdr name)) (res (list (car name))))
(if (null? ls)
(apply string-append
(map display-to-string (reverse (cons ".sld" res))))
(lp (cdr ls) (cons (car ls) (cons "/" res)))))))
(define (check-cond-expand config test)
(define (library-installed? config name)
;; assume it could be installed for now