Permalink
Browse files

housekeeping #3: more cleanup

  • Loading branch information...
1 parent dbffc0a commit b0a56f1a398f7cda5d51bf58bf92a535c7e58f44 @weyrick committed Mar 11, 2007
View
@@ -2,8 +2,8 @@ last updated: 3/1/07
** KNOWN REGRESSIONS **
linux:
-1123: base64 encode/decode
-1125: numbers
+1123: base64 encode/decode (only amd64?)
+1125: numbers (only amd64?)
Other Known (acceptable) Failures:
View
@@ -215,7 +215,7 @@
(string-list->string*::string* sl::pair-nil)
(last ::pair-nil)
(remove::pair-nil ::procedure lis::pair-nil)
- (delete-duplicates lis #!optional (elt=::procedure equal?))
+ (delete-duplicates lis)
(string-join string-list #!optional (delimiter " ") (grammar 'infix))
(lset-difference elt=::procedure lis1 . lists)
(lset-union!::pair-nil elt=::procedure . lists)
@@ -317,16 +317,9 @@
(if (pred (car list)) list
(lp (cdr list))))))
-(define (member x lis #!optional (elt=::procedure equal?))
- (find-tail (lambda (y) (elt= x y)) lis))
-
(define (ptr->0..255 o)
(pragma::long "get_hash_number_from_int($1)" o))
-; delete-duplicates
-(define (delete x lis #!optional (elt=::procedure equal?))
- (filter (lambda (y) (not (elt= x y))) lis))
-
; lset-union!
(define (%cdrs lists)
(bind-exit (abort)
@@ -498,12 +491,12 @@
(define (remove pred l) (filter (lambda (x) (not (pred x))) l))
-(define (delete-duplicates lis #!optional (elt=::procedure equal?))
+(define (delete-duplicates lis)
(let recur ((lis lis))
(if (null-list? lis) lis
(let* ((x (car lis))
(tail (cdr lis))
- (new-tail (recur (delete x tail elt=))))
+ (new-tail (recur (delete x tail))))
(if (eq? tail new-tail) lis (cons x new-tail))))))
(define (string-join string-list #!optional (delimiter " ") (grammar 'infix))
@@ -537,7 +530,7 @@
(cond ((null? lists) lis1) ; Short cut
((memq lis1 lists) '()) ; Short cut
(else (filter (lambda (x)
- (every (lambda (lis) (not (member x lis elt=)))
+ (every (lambda (lis) (not (member x lis)))
lists))
lis1)))))
@@ -25,22 +25,13 @@
(struct (sec::elong "tv_sec")
(usec::elong "tv_usec"))
"struct timeval"))
-; (library common)
(export
(select n::int readfds::fd-set writefds::fd-set exceptfds::fd-set timeout::timeval*)
(make-timeval::timeval*)))
(define (select n::int readfds::fd-set writefds::fd-set exceptfds::fd-set timeout::timeval*)
(pragma::int "select($1, $2, $3, $4, $5)" n readfds writefds exceptfds timeout))
-; ; (type fd_set* (opaque) "fd_set *")
-; (macro select::int (n::int
-; readfds::fd-set
-; writefds::fd-set
-; exceptfds::fd-set
-; timeout::timeval*)
-; "select")) )
-
(define (make-timeval::timeval*)
(pragma::timeval* "GC_MALLOC_ATOMIC(sizeof(struct timeval))"))
@@ -1,5 +1,4 @@
(module gtk-binding
-; (library common)
(export
(gtk-init)
(gdk-color-new::GdkColor* red::uint green::uint blue::uint)
Oops, something went wrong.

0 comments on commit b0a56f1

Please sign in to comment.