raise mixup

1 files changed, 4 insertions, 2 deletions

diff --git a/modules/language/python/list.scm b/modules/language/python/list.scm
index 1935f02..8f734d8 100644
--- a/modules/language/python/list.scm
+++ b/modules/language/python/list.scm
@@ -4,6 +4,7 @@
   #:use-module (language python exceptions)
   #:use-module (language python yield)
   #:use-module (language python for)
+  #:use-module (language python try)
   #:use-module (language python exceptions)
   #:export (to-list pylist-ref pylist-set! pylist-append!))
 
@@ -77,7 +78,7 @@
   ((ref o '__listset__) n val))
 
 ;;APPEND
-(define-method (pylist-append! (o <py-list>) n val)
+(define-method (pylist-append! (o <py-list>) val)
   (let* ((n   (slot-ref o 'n))
          (vec (slot-ref o 'vec))
          (N   (vector-length vec)))
@@ -94,7 +95,8 @@
                   (lp (+ i 1)))))
           (vector-set! vec2 n val)
           (slot-set! o 'vec vec2)))
-    (slot-set! o 'n (+ n 1))))
+    (slot-set! o 'n (+ n 1))
+    (values)))
 
 (define-method (pylist-append! o n)
   (raise 'NotSupportedOP '__append__))