| 1 | diff --git a/chicken-syntax.scm b/chicken-syntax.scm
|
|---|
| 2 | index e9d2755..4c1161b 100644
|
|---|
| 3 | --- a/chicken-syntax.scm
|
|---|
| 4 | +++ b/chicken-syntax.scm
|
|---|
| 5 | @@ -1165,7 +1165,7 @@
|
|---|
| 6 | (##sys#er-transformer
|
|---|
| 7 | (lambda (x r c)
|
|---|
| 8 | (##sys#check-syntax ': x '(_ symbol _ . _))
|
|---|
| 9 | - (if (memq #:csi ##sys#features)
|
|---|
| 10 | + (if (not (memq #:compiling ##sys#features))
|
|---|
| 11 | '(##core#undefined)
|
|---|
| 12 | (let* ((type1 (##sys#strip-syntax (caddr x)))
|
|---|
| 13 | (name1 (cadr x)))
|
|---|
| 14 | @@ -1196,7 +1196,7 @@
|
|---|
| 15 | 'define-specialization '()
|
|---|
| 16 | (##sys#er-transformer
|
|---|
| 17 | (lambda (x r c)
|
|---|
| 18 | - (cond ((memq #:csi ##sys#features) '(##core#undefined))
|
|---|
| 19 | + (cond ((not (memq #:compiling ##sys#features)) '(##core#undefined))
|
|---|
| 20 | (else
|
|---|
| 21 | (##sys#check-syntax 'define-specialization x '(_ (variable . #(_ 0)) _ . #(_ 0 1)))
|
|---|
| 22 | (let* ((head (cadr x))
|
|---|
| 23 | @@ -1287,7 +1287,7 @@
|
|---|
| 24 | (##sys#er-transformer
|
|---|
| 25 | (lambda (x r c)
|
|---|
| 26 | (##sys#check-syntax 'define-type x '(_ variable _))
|
|---|
| 27 | - (cond ((memq #:csi ##sys#features) '(##core#undefined))
|
|---|
| 28 | + (cond ((not (memq #:compiling ##sys#features)) '(##core#undefined))
|
|---|
| 29 | (else
|
|---|
| 30 | (let ((name (##sys#strip-syntax (cadr x)))
|
|---|
| 31 | (%quote (r 'quote))
|
|---|
