;;; GNU Mes --- Maxwell Equations of Software ;;; Copyright © 2018 Jan (janneke) Nieuwenhuizen ;;; ;;; This file is part of GNU Mes. ;;; ;;; GNU Mes is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or (at ;;; your option) any later version. ;;; ;;; GNU Mes is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Mes. If not, see . (define result (lambda (. t) (core:display "result: t=") (core:display t) (core:display "\n"))) (define-macro (pass-if name t) (list 'begin (list core:display "test: ") (list core:display name) (list (quote result) t))) (define-macro (pass-if-eq name expect . body) (list 'pass-if name (list eq? expect (cons 'begin body)))) (pass-if-eq "if" 'true (if #t 'foo)) (result 'report)