raise mixup
authorStefan Israelsson Tampe <stefan.itampe@gmail.com>
Sat, 16 Sep 2017 19:33:05 +0000 (21:33 +0200)
committerStefan Israelsson Tampe <stefan.itampe@gmail.com>
Sat, 16 Sep 2017 19:33:05 +0000 (21:33 +0200)
modules/language/python/compile.scm
modules/language/python/list.scm
modules/language/python/try.scm

index 332c22eb02846222562bf896458d2ed2b4a4fad9..873b264dde252c951adcd7671b56c9a7089cb633 100644 (file)
 (define (fastfkn x)
   (case x
     ;; Lists
-    ((append)  (L 'pylist-apbpend!))
+    ((append)  (L 'pylist-append!))
     ((count)   (L 'pylist-count!))
     ((extend)  (L 'pylist-extend!))
     ((index)   (L 'pylist-index))
index 1935f027137f2de2f5afb5e62b4b52974824990a..8f734d86261f6c63f034d5ad8821a02f52323fd5 100644 (file)
@@ -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>) 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__))
index 448c841d45a7d2b7caafd7a1e95f7afdb2d90b8e..9778f3ba6b40ddbe4b07560d27c8f5d41c5edf4c 100644 (file)
@@ -5,7 +5,8 @@
   #:use-module (oop goops)
   #:use-module (ice-9 control)
   #:use-module (ice-9 match)
-  #:export (raise try))
+  #:replace (raise)
+  #:export (try))
 
 (define-syntax-rule (aif it p x y) (let ((it p)) (if it x y)))
 
@@ -92,8 +93,9 @@
 
 (define raise
   (case-lambda
-    (() (raise Exception))
     ((x . l)
      (if (pyclass? x)
          (throw 'python (apply x l))
-         (apply throw 'python x l)))))
+         (apply throw 'python x l)))
+
+    (() (raise Exception))))