diff options
Diffstat (limited to 'module/srfi/srfi-1.scm')
-rw-r--r-- | module/srfi/srfi-1.scm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/module/srfi/srfi-1.scm b/module/srfi/srfi-1.scm index 765bd50e9..d2347b0d1 100644 --- a/module/srfi/srfi-1.scm +++ b/module/srfi/srfi-1.scm @@ -240,11 +240,9 @@ higher-order procedures." (scm-error 'wrong-type-arg (symbol->string caller) "Wrong type argument: ~S" (list arg) '())) -(define-syntax check-arg - (syntax-rules () - ((_ pred arg caller) - (if (not (pred arg)) - (wrong-type-arg 'caller arg))))) +(define-syntax-rule (check-arg pred arg caller) + (if (not (pred arg)) + (wrong-type-arg 'caller arg))) (define (out-of-range proc arg) (scm-error 'out-of-range proc |