gistfile1.txt

#lang racket

(define-syntax (verify stx)
  (syntax-case stx ()
    [(_ exp1 exp2)
     (with-syntax ([the-line-number (syntax-line stx)])
       (syntax/loc stx
         (begin
           (printf "~s == ~s : " 'exp1 'exp2)
           (if (equal? exp1 exp2)
               (printf "TRUE\n")
               (printf "FALSE (line ~a)\n" the-line-number)))))]))


(verify (+ 1 1) 2)
(verify (+ 1 1) 3)