mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

* goops/save.scm (write-readably): rename list* to cons*.

Browse source
This commit is contained in:
Rob Browning 2001-04-28 17:17:38 +00:00
parent 87f05a7a5a
commit 0b7edf57e8
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
oop/goops/save.scm
View file

@ -307,7 +307,7 @@
(display (cond ((not not-literal?) #\() (display (cond ((not not-literal?) #\()
(proper? "(list ") (proper? "(list ")
(1? "(cons ") (1? "(cons ")
(else "(list* ")) (else "(cons* "))
file) file)
(if (and not-literal? (if (and not-literal?
(literal? (car o) env)) (literal? (car o) env))