suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

svn: r2647

Browse Source
This commit is contained in:
Kathy Gray 2006-04-09 19:09:33 +00:00
parent 856449364d
commit 584624a02d
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/profj/build-info.ss
View File

@ -385,16 +385,19 @@
(equal? (filename-extension f) #".scm")))
(directory-list (dir-path-path dir)))
(filter (lambda (c-name) (not (equal? c-name "")))
(map (lambda (fn)
(map (lambda (fn)
(let ((str (path->string fn)))
(substring str 0 (- (string-length str)
(add1 (bytes-length (filename-extension fn)))))))
(filter (lambda (f)
(let ((ext (filename-extension f)))
(filter (lambda (f)
(let ((first (substring (path->string f) 0 1))
(ext (filename-extension f)))
(and (not (equal? "#" first))
(not (equal? "." first))
(or (equal? ext #"java")
(equal? ext #"djava")
(equal? ext #"ajava"))))
(directory-list (dir-path-path dir)))))))
(equal? ext #"ajava")))))
(directory-list (dir-path-path dir)))))))
;load-lang: type-records -> void (adds lang to type-recs)
(define (load-lang type-recs)

1
collects/profj/types.ss
View File

@ -637,6 +637,7 @@
(assignable (filter (lambda (mr)
(andmap a-convert? (m-atypes mr) arg-types))
methods))
;(sort (lambda (l p) (quicksort l p)))
(assignable-count (sort
(map (lambda (mr)
(list (number-assign-conversions arg-types (m-atypes mr) type-recs)