Схема эквивалентна функции печати в Clojure

Интересно... вы можете довольно легко свернуть один из них, но я не уверен, что вижу в этом необходимость. Например:

#lang racket

(define (print-many . args)
  (display
   (apply
    string-append
    (add-between (map print-to-string args) " "))))

(define (print-to-string arg) (format "~v" arg))

(print-many 3 4 5 'b '(3 3 4))

В целом, однако, я думаю, что если вы генерируете вывод для пользователя, вам понадобится лучший контроль над выводом, и если вы не генерируете вывод для пользователя, вы так же счастливы похлопывая вокруг него пару скобок и превращая его в список.

Каков вариант использования для этого?

Возможно, вы ищете trace ?

#lang racket

(define (foo x y)
  (+ x y))

(define (bar x)
  (+ (foo 1 x)
     (foo 2 (+ x 1))))

(require racket/trace)
(trace foo)

А затем в окне взаимодействия:

> (bar 3)

>(foo 1 3)
<4
>(foo 2 4)
<6
10

Я использую этот набор определений для печати нескольких аргументов, разделенных новой строкой:

(define (println x) (display x) (newline))
(define (printlist l) (begin
                        (println (car l))
                        (if (not (null? (cdr l))) (printlist (cdr l)))))  
(define (multiprint  . args) (begin
                                (if (not (null? args)) (printlist args) 
                                    (println "Error: multiprint requires at least one argument"))))