applicable structs used
[software/python-on-guile.git] / modules / language / python / compile.scm
index e74b9f211b2acdce8d6525387c316ed854957099..c3158158e36345c4bb9b489d4840c39cb6440651 100644 (file)
                                  'mk-p-class
                                  'mk-py-class)))              
                 (parents (filt parents)))
-           `(define ,class (,(O 'wrap) ,class
-                            (,(O kind) 
-                             ,class
-                             ,(map (lambda (x) `(,(O 'get-class) ,x)) parents)
-                             #:const
-                             ,(match (exp vs defs)
-                                (('begin . l)
-                                 l)
-                                ((('begin . l))
-                               l)
-                                (l l))
-                             #:dynamic
-                             ())))))))
+           `(define ,class (,(O kind) 
+                            ,class
+                            ,(map (lambda (x) `(,(O 'get-class) ,x)) parents)
+                            #:const
+                            ,(match (exp vs defs)
+                               (('begin . l)
+                                l)
+                               ((('begin . l))
+                                l)
+                               (l l))
+                            #:dynamic
+                            ()))))))
 
     ((#:import ((() nm) . #f))
      `(use-modules (language python module ,(exp vs nm))))