conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* Added an internal library to makefile.ss just to make sure I use 

the feature daily.
This commit is contained in:
Abdulaziz Ghuloum 2007-11-12 05:05:27 -05:00
parent c26ef04965
commit a11cd5be48
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scheme/makefile.ss
View File

@ -1367,11 +1367,15 @@
(cdr x))) (cdr x)))
(for-each f identifier->library-map)) (for-each f identifier->library-map))
(define (make-collection) (library (ikarus makefile collections)
(export make-collection)
(import (rnrs))
(define (make-collection)
(let ([set '()]) (let ([set '()])
(case-lambda (case-lambda
[() set] [() set]
[(x) (set! set (cons x set))]))) [(x) (set! set (cons x set))]))))
(import (ikarus makefile collections))
(define (assq1 x ls) (define (assq1 x ls)
(let f ([x x] [ls ls] [p #f]) (let f ([x x] [ls ls] [p #f])