#lang racket

;;; show.rkt pour le livre 'Premiers Cours de Programmation avec Scheme' (Ellipses ed, 2010)

(provide show)

(define-syntax show
  (syntax-rules ()
    ((show expr) (begin (printf "? ~s\n" 'expr) (printf "--> ~s\n" expr)))))

;(show (+ 1 2))