Commit db64c5c6 authored by Niels Möller's avatar Niels Möller
Browse files

* src/scm/gaba.scm (process-class): Fixed output of meta classes;

mode #define to the declaration part of the output file.

Rev: src/scm/gaba.scm:1.3
parent 4ddf428e
......@@ -367,8 +367,7 @@
(if methods
(map (lambda (m) (list ",\n " m)) methods)
"")
"};\n"
"#define " name "_class (" name "_class_extended.super)\n")
"};\n")
(list "struct lsh_class " name "_class =\n"
initializer ";\n")))
......@@ -389,7 +388,8 @@
(do-instance-struct name super vars)
(if meta
(list "extern struct " meta "_meta "
name "_class_extended;\n")
name "_class_extended;\n"
"#define " name "_class (" name "_class_extended.super)\n")
(list "extern struct lsh_class " name "_class;\n"))
"#endif /* !GABA_DEFINE */\n\n"
"#ifndef GABA_DECLARE\n"
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment