[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/ice-9 ChangeLog boot-9.scm
From: |
Gary Houston |
Subject: |
guile/guile-core/ice-9 ChangeLog boot-9.scm |
Date: |
Sun, 26 Nov 2000 10:28:58 -0800 |
CVSROOT: /cvs
Module name: guile
Changes by: Gary Houston <address@hidden> 00/11/26 10:28:58
Modified files:
guile-core/ice-9: ChangeLog boot-9.scm
Log message:
* boot-9.scm: values?, get-values, values, call-with-values:
removed. values and call-with-values are now primitives and
the other two were only exported by accident. don't define
*values-rtd* record type or handle multiple values in
scm-style-repl.
CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/ice-9/ChangeLog.diff?r1=1.357&r2=1.358
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/ice-9/boot-9.scm.diff?r1=1.216&r2=1.217
Patches:
Index: guile/guile-core/ice-9/ChangeLog
diff -u guile/guile-core/ice-9/ChangeLog:1.357
guile/guile-core/ice-9/ChangeLog:1.358
--- guile/guile-core/ice-9/ChangeLog:1.357 Thu Nov 9 14:46:06 2000
+++ guile/guile-core/ice-9/ChangeLog Sun Nov 26 10:28:57 2000
@@ -1,3 +1,11 @@
+2000-11-26 Gary Houston <address@hidden>
+
+ * boot-9.scm: values?, get-values, values, call-with-values:
+ removed. values and call-with-values are now primitives and
+ the other two were only exported by accident. don't define
+ *values-rtd* record type or handle multiple values in
+ scm-style-repl.
+
2000-11-07 Gary Houston <address@hidden>
* popen.scm (open-output-pipe): added docstrings for open-input-pipe
Index: guile/guile-core/ice-9/boot-9.scm
diff -u guile/guile-core/ice-9/boot-9.scm:1.216
guile/guile-core/ice-9/boot-9.scm:1.217
--- guile/guile-core/ice-9/boot-9.scm:1.216 Wed Sep 20 09:50:18 2000
+++ guile/guile-core/ice-9/boot-9.scm Sun Nov 26 10:28:57 2000
@@ -510,36 +510,6 @@
answer
(loop (cons init answer) (- n 1)))))
-
-
-;;; {Multiple return values}
-
-(define *values-rtd*
- (make-record-type "values"
- '(values)))
-
-;;; These two are needed internally in boot-9.scm.
-;;; They shouldn't be visible outside this module.
-(define values? (record-predicate *values-rtd*))
-(define get-values (record-accessor *values-rtd* 'values))
-
-(define values
- (let ((make-values (record-constructor *values-rtd*)))
- (lambda x
- (if (and (not (null? x))
- (null? (cdr x)))
- (car x)
- (make-values x)))))
-
-(define call-with-values
- (lambda (producer consumer)
- (let ((result (producer)))
- (if (values? result)
- (apply consumer (get-values result))
- (consumer result)))))
-
-(provide 'values)
-
;;; {and-map and or-map}
;;;
@@ -2591,9 +2561,7 @@
(lambda (result)
(if (not scm-repl-silent)
(begin
- (if (values? result)
- (for-each maybe-print (get-values result))
- (maybe-print result))
+ (maybe-print result)
(if scm-repl-verbose
(repl-report))
(force-output))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/ice-9 ChangeLog boot-9.scm,
Gary Houston <=