From 0c6b7c4e26a6b975d8aa2735e82883f99c4d7d0f Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 25 Sep 2008 19:57:33 +0000 Subject: [PATCH] fix typo svn: r11876 --- collects/handin-server/checker.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/handin-server/checker.ss b/collects/handin-server/checker.ss index 1cb058981d..1aaa6b6584 100644 --- a/collects/handin-server/checker.ss +++ b/collects/handin-server/checker.ss @@ -684,7 +684,7 @@ (define-syntax-rule (!integer* expr) (unless (integer? ((submission-eval) `expr)) (error* "~a is expected to be bound to an integer" (->disp 'expr)))) -(define-syntax (!integer id) +(define-syntax-rule (!integer id) (begin (!defined id) (!integer* id))) (provide !eval)