mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 09:10:22 +02:00
Code Activity

* Use "'()" instead of "()" in optargs.scm.

Browse source
This commit is contained in:
Neil Jerram 2001-03-05 23:52:09 +00:00
parent 9155e458e0
commit 618196705b
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
ice-9/ChangeLog
View file

@ -1,5 +1,8 @@
2001-03-05 Neil Jerram <neil@ossau.uklinux.net> 2001-03-05 Neil Jerram <neil@ossau.uklinux.net>
* optargs.scm (rest-arg->keyword-binding-list): Use "'()" instead
of "()".
* buffered-input.scm: New file, with guts of line buffered input * buffered-input.scm: New file, with guts of line buffered input
port implementation extracted from guile-readline/readline.scm. port implementation extracted from guile-readline/readline.scm.

4
ice-9/optargs.scm
View file

@ -171,10 +171,10 @@
(define (rest-arg->keyword-binding-list rest-arg keywords allow-other-keys?) (define (rest-arg->keyword-binding-list rest-arg keywords allow-other-keys?)
(if (null? rest-arg) (if (null? rest-arg)
() '()
(let loop ((first (car rest-arg)) (let loop ((first (car rest-arg))
(rest (cdr rest-arg)) (rest (cdr rest-arg))
(accum ())) (accum '()))
(let ((next (lambda (a) (let ((next (lambda (a)
(if (null? (cdr rest)) (if (null? (cdr rest))
a a