From 749c164fcff9ac490d91d9e999f05bcb2f011412 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 29 Jul 2016 21:39:21 -0400 Subject: [PATCH] Fix typo. --- src/runtime/list.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/runtime/list.scm b/src/runtime/list.scm index b2df695c6..2fc780fbf 100644 --- 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? =))) -- 2.25.1