guile-srfi-123

commit 4dd99cea8eb2adce4f6a9d349c0bdbd66bd019d2
parent 42911001fdd8b3b2503a6d68ea56175e0a02acb3
Author: Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
Date:   Sun, 23 Aug 2015 14:38:59 +0200

Fix pair-set!.

Diffstat:
M
srfi/123.body.scm
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/srfi/123.body.scm b/srfi/123.body.scm
@@ -46,9 +46,9 @@
 
 (define (pair-set! pair key value)
   (cond
-   ((eqv? car key)
+   ((eqv? 'car key)
     (set-car! pair value))
-   ((eqv? cdr key)
+   ((eqv? 'cdr key)
     (set-cdr! pair value))
    (else
     (list-set! pair key value))))