From 584624a02d50bc1d647ddb9029dc374f93105b33 Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Sun, 9 Apr 2006 19:09:33 +0000 Subject: [PATCH] svn: r2647 --- collects/profj/build-info.ss | 13 ++++++++----- collects/profj/types.ss | 1 + 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/collects/profj/build-info.ss b/collects/profj/build-info.ss index e0c9bb4b1b..c7466f5999 100644 --- a/collects/profj/build-info.ss +++ b/collects/profj/build-info.ss @@ -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) diff --git a/collects/profj/types.ss b/collects/profj/types.ss index 4844be0715..45d55d682d 100644 --- a/collects/profj/types.ss +++ b/collects/profj/types.ss @@ -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)