svn: r11876
This commit is contained in:
Eli Barzilay 2008-09-25 19:57:33 +00:00
parent cd6a37ff4c
commit 0c6b7c4e26

View File

@ -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)