diff --git a/expand.scm b/expand.scm
index 6e9dff4..22b6a61 100644
a
|
b
|
|
111 | 111 | (set! seen (cons (cons x vec) seen)) |
112 | 112 | (do ((i 0 (fx+ i 1))) |
113 | 113 | ((fx>= i len) vec) |
114 | | (##sys#setslot vec i (##sys#slot x i))))) |
| 114 | (##sys#setslot vec i (walk (##sys#slot x i)))))) |
115 | 115 | (else x))))) |
116 | 116 | |
117 | 117 | (define strip-syntax ##sys#strip-syntax) |
diff --git a/tests/syntax-tests.scm b/tests/syntax-tests.scm
index 49aafcb..a66ef76 100644
a
|
b
|
|
165 | 165 | (let ((a 2)) |
166 | 166 | (t '(1 2 3 a) (foo a))))) |
167 | 167 | |
| 168 | ;; Strip-syntax on vectors: |
| 169 | (let-syntax |
| 170 | ((foo (syntax-rules () |
| 171 | ((_) |
| 172 | '#(b))))) |
| 173 | (t '#(b) (foo))) |
| 174 | |
168 | 175 | (define-syntax kw |
169 | 176 | (syntax-rules (baz) |
170 | 177 | ((_ baz) "baz") |