From 3923fa6d06d0a84827296a23aa038b8dbe710321 Mon Sep 17 00:00:00 2001 From: Gary Houston Date: Sun, 26 Nov 2000 18:28:57 +0000 Subject: [PATCH] * 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. --- ice-9/ChangeLog | 8 ++++++++ ice-9/boot-9.scm | 34 +--------------------------------- 2 files changed, 9 insertions(+), 33 deletions(-) diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index 4661db3f7..3373a9981 100644 --- a/ice-9/ChangeLog +++ b/ice-9/ChangeLog @@ -1,3 +1,11 @@ +2000-11-26 Gary Houston + + * 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 * popen.scm (open-output-pipe): added docstrings for open-input-pipe diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index b6da0a85e..e128ec795 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -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))))))