handle multiple return values in `report`

sugar/debug.rkt

@@ -1,38 +1,43 @@
 #lang racket/base
-(require (for-syntax racket/base) "define.rkt")
+(require racket/string (for-syntax racket/base) "define.rkt")
 
 (provide+safe report report/line report/file
               report* report*/line report*/file
               report-apply repeat time-repeat time-repeat* compare)
 
+(define (stringify-results expr-results)
+  (format (if (= 1 (length expr-results))
+              "~a"
+              "(values ~a)") (string-join (for/list ([r (in-list expr-results)])
+                                            (format "~v" r)) " ")))
 
 (define-syntax (report stx)
   (syntax-case stx ()
     [(MACRO EXPR) #'(MACRO EXPR EXPR)]
     [(_ EXPR NAME)
-     #'(let ([expr-result EXPR]) 
+     #'(let ([expr-results (call-with-values (λ () EXPR) list)]) 
-         (eprintf "~a = ~v\n" 'NAME expr-result)
+         (eprintf "~a = ~a\n" 'NAME (stringify-results expr-results))
-         expr-result)]))
+         (apply values expr-results))]))
 
 
 (define-syntax (report/line stx)
   (syntax-case stx ()
     [(MACRO EXPR) #'(MACRO EXPR EXPR)]
     [(_ EXPR NAME)
-     #`(let ([expr-result EXPR])
+     #`(let ([expr-results (call-with-values (λ () EXPR) list)])
-         (eprintf "~a = ~v on line ~v\n" 'NAME expr-result #,(syntax-line #'EXPR))
+         (eprintf "~a = ~v on line ~v\n" 'NAME (stringify-results expr-results) #,(syntax-line #'EXPR))
-         expr-result)]))
+         (apply values expr-results))]))
 
 
 (define-syntax (report/file stx)
   (syntax-case stx ()
     [(MACRO EXPR) #'(MACRO EXPR EXPR)]
     [(_ EXPR NAME)
-     #`(let ([expr-result EXPR])
+     #`(let ([expr-results (call-with-values (λ () EXPR) list)])
-         (eprintf "~a = ~v on line ~v in \"~a\"\n" 'NAME expr-result
+         (eprintf "~a = ~v on line ~v in \"~a\"\n" 'NAME (stringify-results expr-results)
                   #,(syntax-line #'EXPR)
                   '#,(syntax-source #'EXPR))
-         expr-result)]))
+         (apply values expr-results))]))
 
 
 (define-syntax-rule (define-multi-version multi-name name)

sugar/test/main.rkt

@@ -242,6 +242,15 @@
  
  (define ys (range 5))
  (check-equal? (values->list (shift/values ys -1 'boing)) '(1 2 3 4 boing))
- (check-equal? (values->list (shift/values ys '(-1 0 1) 'boing)) `((1 2 3 4 boing) ,xs (boing 0 1 2 3))))
+ (check-equal? (values->list (shift/values ys '(-1 0 1) 'boing)) `((1 2 3 4 boing) ,xs (boing 0 1 2 3)))
 
+ (check-equal? "42 = 42\n" (let ([os (open-output-string)])
+                             (parameterize ([current-error-port os])
+                               (report 42))
+                             (get-output-string os)))
+
+ (check-equal? "(quotient/remainder 10 3) = (values 3 1)\n" (let ([os (open-output-string)])
+                                                              (parameterize ([current-error-port os])
+                                                                (report (quotient/remainder 10 3))
+                                                                (get-output-string os)))))