Ticket #881: apatch

File apatch, 1.1 KB (added by megane, 10 years ago)
Line 
1diff --git a/chicken-syntax.scm b/chicken-syntax.scm
2index 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))