Commit 8589d46d authored by Erick's avatar Erick

Bug Fix: multiples values lost on call-with-port

parent 09f74137
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 17-Apr-2011 19:36 (eg)
;;;; Last file update: 14-Jul-2018 19:29 (eg)
;;;; Last file update: 18-Jul-2018 14:16 (eg)
;;;;
;;;; ----------------------------------------------------------------------
......@@ -662,9 +662,11 @@ doc>
#;(unless (and (procedure? proc) (memq (%procedure-arity proc) '(-2 -1 1)))
(error 'call-with-port "bad procedure ~S" proc))
(%claim-error 'call-with-port
(let ((res (proc port)))
(let ((res (call-with-values
(lambda () (proc port))
list)))
(close-port port)
res)))
(apply values res))))
#|
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment