~evhan/beaker

e8a0c761b1ac998460dc92bfb2c7bcee67a5e0db — Evan Hanson 3 years ago 4d55940
Minor fix for unquote detection in vectors
1 files changed, 2 insertions(+), 2 deletions(-)

M lib/beaker.scm
M lib/beaker.scm => lib/beaker.scm +2 -2
@@ 87,8 87,8 @@

  (define (expression-contains? x pred)
    (cond ((pred x) #t)
          ((and (quasiquote? x) (vector? (cadr x)))
           (expression-contains? (vector->list (cadr x)) pred))
          ((vector? x)
           (expression-contains? (vector->list x) pred))
          ((pair? x)
           (or (expression-contains? (car x) pred)
               (expression-contains? (cdr x) pred)))