~tim/scheme-vm

252f65492275c07a86dcfc024f87ed90e985ae47 — Tim Morgan 5 years ago 7a043bb
Fix typo in memv function
1 files changed, 1 insertions(+), 1 deletions(-)

M lib/scheme/base.scm
M lib/scheme/base.scm => lib/scheme/base.scm +1 -1
@@ 292,7 292,7 @@
          #f
          (if (eqv? obj (car list))
              list
              (memq obj (cdr list)))))
              (memv obj (cdr list)))))

    (define (caar l) (car (car l)))
    (define (cadr l) (car (cdr l)))