diff options
author | Marius Vollmer <mvo@zagadka.de> | 2001-03-03 14:58:22 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2001-03-03 14:58:22 +0000 |
commit | bf4aaed27ca93adc575e9f6f2647ecb4dd3e4f45 (patch) | |
tree | db6415bd251a1a2e6d03eca869f6b05079a4b298 | |
parent | 9e6fc585b28869b547de3f8d460f19d96e85b17e (diff) | |
download | guile-bf4aaed27ca93adc575e9f6f2647ecb4dd3e4f45.tar.gz |
* boot-9.scm, rdelim.scm: Use "'()" instead of "()" in all places
where the empty list is meant.
-rw-r--r-- | ice-9/boot-9.scm | 2 | ||||
-rw-r--r-- | ice-9/rdelim.scm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index efd330815..2ba387843 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -2745,5 +2745,5 @@ (define-module (guile)) -(append! %load-path (cons "." ())) +(append! %load-path (cons "." '())) diff --git a/ice-9/rdelim.scm b/ice-9/rdelim.scm index 9d961a0af..732163e5d 100644 --- a/ice-9/rdelim.scm +++ b/ice-9/rdelim.scm @@ -95,7 +95,7 @@ (handle-delim (if (pair? args) (car args) 'trim))) - (let loop ((substrings ()) + (let loop ((substrings '()) (total-chars 0) (buf-size 100)) ; doubled each time through. (let* ((buf (make-string buf-size)) |