scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use BIG-UTIL instead of rolling our own stuff.

This commit is contained in:
sperber 2001-06-20 09:08:01 +00:00
parent b99348651d
commit 76d5ce3a74
2 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ftpd.scm
View File

@ -807,7 +807,7 @@
; Version ; Version
(define *ftpd-version* "$Revision: 1.9 $") (define *ftpd-version* "$Revision: 1.10 $")
(define (copy-port->port-binary input-port output-port) (define (copy-port->port-binary input-port output-port)
(let ((buffer (make-string *window-size*))) (let ((buffer (make-string *window-size*)))
@ -856,9 +856,3 @@
((null? maybe-arg) default-exp) ((null? maybe-arg) default-exp)
((null? (cdr maybe-arg)) (car maybe-arg)) ((null? (cdr maybe-arg)) (car maybe-arg))
(else (error "too many optional arguments" maybe-arg)))) (else (error "too many optional arguments" maybe-arg))))
; Stuff from Big Scheme
; We can't open BIG-SCHEME because we use virgin SIGNALS. Sigh.
(define any? (structure-ref big-scheme any?))
(define partition-list (structure-ref big-scheme partition-list))

1
modules.scm
View File

@ -427,6 +427,7 @@
threads threads
fluids fluids
string-lib string-lib
big-util
defrec-package defrec-package
crlf-io strings ls) crlf-io strings ls)
(access big-scheme) (access big-scheme)