fix typo
svn: r11876
This commit is contained in:
parent
cd6a37ff4c
commit
0c6b7c4e26
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user