guile/guile-core/ice-9 ChangeLog boot-9.scm

[Gary Houston]

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