mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-03 13:20:26 +02:00
Code Activity

* boot-9.scm, rdelim.scm: Use "'()" instead of "()" in all places

Browse source 
where the empty list is meant.
This commit is contained in:
Marius Vollmer 2001-03-03 14:58:22 +00:00
parent 9e6fc585b2
commit bf4aaed27c
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
ice-9/boot-9.scm
View file

@ -2745,5 +2745,5 @@
(define-module (guile))
(append! %load-path (cons "." ()))
(append! %load-path (cons "." '()))

2
ice-9/rdelim.scm
View file

@ -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))