Fix typo.

diff --git a/src/runtime/list.scm b/src/runtime/list.scm
index b2df695c6678bb69567b3f3a7a755eb386f243e9..2fc780fbf455e55b12b4b9ac26c0afec29934612 100644 (file)
--- a/src/runtime/list.scm
+++ b/src/runtime/list.scm
@@ -1111,7 +1111,7 @@ USA.
   (%delete item items eq? 'DELQ))
 
 (define (delv item items)
-  (%delete item items eqv? 'DELQ))
+  (%delete item items eqv? 'DELV))
 
 (define (delete item items #!optional =)
   (let ((= (if (default-object? =) equal? =)))