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